Events 处理运行时创建的OLEObject CommandButtons的事件

我已经为这个问题挣扎了一段时间…我想做一些非常简单的事情。我想在运行时创建多个commandbuttons，然后用一个过程处理这些commandbuttons的事件。因此，我构建了一个“withevents”类来处理自动化，但我的代码不起作用。当我运行Test（）时，会创建CommandButton，但当我单击它时…没有messagebox响应…我找不到错误..请提供任何帮助

类别测试

Public WithEvents Button As MSForms.CommandButton

Public Sub Button_Click()
s = MsgBox("Hello", vbOKOnly)
End Sub

单元1

Public TestCollection As Collection

Sub Test()

Set TestCollection = New Collection
Dim Btn As CommandButton
Dim OLEBtnObj As cTest
Set OLEBtnObj = New cTest
Set Btn = Sheet1.OLEObjects.Add(ClassType:="Forms.CommandButton.1", link:=False,_ DisplayAsIcon:=False, Left:=368.25, Top:=51, Width:=44.25, Height:=24).Object
Set OLEBtnObj.Button = Btn
TestCollection.Add Item:=OLEBtnObj

End Sub

---

我有一个相当不切实际的解决方案：-）。要测试它，请将以下代码放入Sheet1类模块中

对于每个新的Sheet1按钮，将添加一个已处理的新事件。此事件处理程序将执行公共事件处理程序，并将单击的命令按钮的名称传递给它

' Standard Module
Sub test()
  ' adds three buttons to Sheet1 with click-event handlers
  Sheet1.AddButton
  ActiveCell.Offset(5, 0).Activate
  Sheet1.AddButton
  ActiveCell.Offset(5, 0).Activate
  Sheet1.AddButton
End Sub

' Sheet1 Class Module
Option Explicit

' Add Microsoft Visual Basic For Applications Extensibility

Public Function AddButton() As MSForms.CommandButton
  Dim msFormsCommandButton As MSForms.CommandButton
  Set msFormsCommandButton = Me.OLEObjects.Add(ClassType:="Forms.CommandButton.1").Object
  CreateEventHandler msFormsCommandButton.Name
  Set AddButton = msFormsCommandButton
End Function

Private Sub CommonButton_Click(ByVal buttonName As String)
  MsgBox "You clicked button [" & buttonName & "]"
End Sub

Private Sub CreateEventHandler(ByVal buttonName As String)
    Dim VBComp As VBIDE.VBComponent
    Dim CodeMod As VBIDE.CodeModule
    Dim codeText As String
    Dim LineNum As Long

    Set VBComp = ThisWorkbook.VBProject.VBComponents(Me.CodeName)
    Set CodeMod = VBComp.CodeModule
    LineNum = CodeMod.CountOfLines + 1

    codeText = codeText & "Private Sub " & buttonName & "_Click()" & vbCrLf
    codeText = codeText & "  Dim buttonName As String" & vbCrLf
    codeText = codeText & "  buttonName = """ & buttonName & "" & vbCrLf
    codeText = codeText & "  CommonButton_Click buttonName" & vbCrLf
    codeText = codeText & "End Sub"
    CodeMod.InsertLines LineNum, codeText
End Sub

---

我相信工作表控件（.OLEObjects.Add）似乎在重新编译项目。如果需要，请尝试使用表单控件并为其指定

.OnClick

事件，或者如果仍要使用ActiveX控件，请尝试此操作，感谢上帝！！这个def是有效的……在详细研究了这个问题之后，不可能使用“withevents”关键字为动态创建的对象构建包装类。唯一的解决方案是为创建的每个对象在Sheet模块中以编程方式插入新代码…虽然这不是最优雅的解决方案，但它可以工作。非常感谢丹尼尔！！作为将来的参考，您是否认为使用VisualStudioToolsforOffice可以更容易地实现这一点。我正在考虑熟悉那个API，现在就用VSOT代替VBA表单…嗨，Sunny，我很高兴它对你有用。除此之外，我并没有在工作表上找到其他OLE按钮的工作解决方案。熟悉VSTO非常有用。另一方面，VBA确实更容易使用。