Question

我需要一个帮助，我正在创建一个代码，其中一个功能将是创建一个activeX命令按钮，但我需要代码来创建按钮并为其分配宏“Sub graft（）” / p>

所以我需要宏来创建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

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

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

1 个答案: