单击所有按钮的VBA宏

Question

我试图通过获取所有按钮名称并评估对这些函数的调用来使单击某个文档中的所有按钮的宏。

代码：

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 

Here are some additional documentations on OLEObject.