Question

我想通过VBA将button插入到我的工作表中。因此，我尝试使用here中的简单VBA。

Sub Insert_Button()
Sheet1.Shapes("Button 1").Visible = True
End Sub

但是，只有在手动插入和隐藏按钮之前，此VBA才起作用。
我还尝试了here上的解决方案，但是将代码标记为红色并且没有运行。

如果文件中尚不存在该按钮，如何通过VBA插入form control button？

Answer 1

尝试一下：

ActiveSheet.Shapes.AddFormControl xlButtonControl, 100, 100, 50, 20

数字是插入按钮的左侧位置，顶部位置，宽度和高度

Answer 2

这应该有效：

ActiveSheet.Buttons.Add(185.25, 61.5, 85.5, 24.75).Select

数字是坐标，因此，如果要将按钮添加到单元格，则必须使用单元格的左/上......

With ActiveSheet
    .Buttons.Add(.Cells(2, 2).Left, .Cells(2, 2).Top, 85.5, 24.75).Select
End With

包括“ A1：B2”之类的范围的宽度和高度...

With ActiveSheet
    .Buttons.Add(.Cells(1, 1).Left, .Cells(2, 2).Top, .Cells(1, 1).Width + .Cells(1, 2).Width, .Cells(1, 1).Height + .Cells(2, 2).Height).Select
End With

通过VBA插入表单控制按钮

2 个答案: