VBA添加button，设置标题并将其链接到一个方法

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

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 。 我想这个代码片段是通过macroslogging器产生的，显然这永远不会是最佳的。