Question

是否有办法界定窗体控制的事件程序,如对 AmericanX 对象的窗体控制?

我有一个用户目前添加/ removes ApactX 命令按钮的 GUI 界面, 由用户添加/ removes ActiveX 命令按钮, 但它运行到 < a href=> http://msdn. microsoft.com/ en- us/ library/ aa264506%28v=vs. 60%29. aspx" rel= "nofollow" > "Error 91 , 试图将一个项目添加到一个全球收藏中, 添加每个按钮。我最好的猜测是 < a href=> http://www. pcreview.co.uk/ forums/ diralally- addadadding- activactex- control- via- vba- kills- global- vba-heap- t3763287.html" rel= " rel= " no fol fol " > > > this most a production a/ a/ a/ a/ a a/ a pactivX conct press press press pract press press press press press press press

Answer 1

如果您只想添加按钮和抓取单击, 您可以为它们指定一个共同的宏, 并切换根据按钮名称( 在创建按钮时您将设置该按钮, 并且可以通过 Application.Caller 访问该按钮) 所要采取的行动。

Sub AddButtons()

    With ActiveSheet.Buttons.Add(100, 100, 50, 50)
        .Name = "button1"
        .OnAction = "ClickHandler"
    End With
    With ActiveSheet.Buttons.Add(200, 100, 50, 50)
        .Name = "button2"
        .OnAction = "ClickHandler"
    End With


End Sub

Sub ClickHandler()
    Dim bName As String

    bName = Application.Caller
    Select Case bName
        Case "button1": MsgBox "Clicked First button"
        Case "button2": AnotherSub 
    End Select

End Sub

友情链接