すべてのボタンをクリックする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.