宏以创建 activex 命令按钮并将宏分配给该按钮

Question

我在这里需要帮助，我正在创建一个代码，它的功能之一是创建一个activeX命令按钮，但我需要代码来创建按钮并将宏"Sub graft（）"分配给它

所以我需要宏来创建 activeX 按钮"Commandbutton1"并分配代码

Private Sub CommandButton1_Click()    
Call graft()    
End sub

我知道如何创建按钮，但我找不到如何为其分配代码 按钮将在活动工作簿上名为"Gráfico"的工作表上创建

按钮的创建和放置代码

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=1200, Top:=20, _
Width:=100, Height:=30).Select
ActiveSheet.Shapes.Range(Array("CommandButton1")).Select
Selection.Cut
Cells(lline + 26, 1).Select
ActiveSheet.Paste
CutCopyMode = False

Answer 1

试试这个。 你将不得不稍微修改你的代码，但这会将按钮放在你的代码放置它的位置，给按钮一个标题，并为其分配宏"移植"。

使用 With 避免 select 语句，然后根据需要分配命令按钮的属性。

Sub CreateButton()
    Dim newButton As Object 
    Set newButton = ActiveSheet.Buttons.Add(1200, 20, 100, 30)
    With newButton
        .OnAction = "graft"
        .Caption = "Graft"
    End With
End Sub