Question

我想在新工作表上添加一个按钮，设置标题并将其链接到模块中的方法。任何帮助，将不胜感激。谢谢！

Answer 1

Dim b As Excel.Shape
Set b = ActiveSheet.Shapes.AddFormControl(xlButtonControl, 10, 10, 100, 100)
b.OnAction = "AMacro"
b.OLEFormat.Object.Text = "Run a macro"

Answer 2

~~尝试从http://www.mrexcel.com/forum/showthread.php?t=43637~~

获取

Sub CreateButton()
    ActiveSheet.Buttons.Add(199.5, 20, 81, 36).Select
    Selection.Name = "New Button"
    Selection.OnAction = "CheckTotals"
    ActiveSheet.Shapes("New Button").Select
    Selection.Characters.Text = "Check Totals"
End Sub

编辑：GSerg的答案肯定比这更好，因为这只是一个快速的复制和粘贴工作，用于说明目的。我将把答案留作比较一个更好的方法来编写VBA和一个小参考，以解释为什么你应该避免Selection。我想象代码片段是通过宏录制器产生的东西，显然这绝不会是最佳的。

VBA添加按钮，设置标题并将其链接到方法

2 个答案: