單擊所有按鈕的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.