单击所有button的VBAmacros

我正在尝试制作一个macros，通过获取所有button名称和评估对这些函数的调用来单击任何文档中的所有button。

码：

Private Sub CommandButton1_Click() MsgBox "b" End Sub Private Sub CommandButton2_Click() MsgBox "a" End Sub Sub test_macro() For Each S In Worksheets(1).OLEObjects Evaluate ("Call " + S.Name + "_Click") Next End Sub 

这里可能是什么问题？ 还有另一种方法可以做到吗？

Answer 1

看看这是否有效。

 For Each OLEObject In Worksheets(1).OLEObjects If TypeName(OLEObject.Object) = "CommandButton" Then OLEObject.Object = True Next 

这里是一些关于OLEObject的附加文档。