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

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"