Excel 宏来创建activex命令按钮并为该按钮指定宏

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

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

Private Sub CommandButton1_Click()    
Call graft()    
End sub

我知道如何创建按钮，但找不到如何为其分配代码按钮将在ActiveWorkbook上名为“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

---

试试这个。您必须稍微修改代码，但这会将按钮放置在代码放置的位置，为按钮提供标题，并为其指定宏“嫁接”

使用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

---

你想把它放在Grafico的什么地方？@PJRosenburg我已经用我用来创建按钮并放置它们的代码更新了描述