以编程方式运行“分配宏”对话框

Question

我创建的宏工具允许以编程方式在Excel中创建按钮，但最后我需要调用“Assign macro”对话框：

让用户选择他想要分配给创建按钮的宏。我怎么能做到这一点？

实际代码：

Dim btn As Shape
Set btn = wsSheetToAddButton.Shapes.AddFormControl(Type:=xlButtonControl, Left:=buttonLocation.Left, Top:=buttonLocation.Top, Width:=128, Height:=75)
With btn
    With .TextFrame.Characters
        .Caption = buttonText
        With .Font
            .FontStyle = "Bold"
            .ColorIndex = textColor
        End With
    End With
.Select
End With

Answer 1

选择按钮后添加：

Application.Dialogs(xlDialogAssignToObject).Show

Answer 2

如果你想分配＆＃34;宏＆＃34;从代码中，这是一个最小的例子：

Sub TestMe()

    Dim btn As Shape
    Set btn = ActiveSheet.Shapes.AddFormControl(Type:=xlButtonControl, _
                                Left:=5, Top:=5, Width:=75, Height:=75)
    btn.OnAction = "Testing"

End Sub

或引用新创建的按钮as mentioned by @Rory：

Sub TestMe()

    Dim btn As Shape        
    Set btn = ActiveSheet.Shapes.AddFormControl(Type:=xlButtonControl, _
                                Left:=5, Top:=5, Width:=75, Height:=75)
    btn.Select: Application.Dialogs(xlDialogAssignToObject).Show

End Sub