フォーム上のすべてのコマンドボタンの名前を取得

質問

エクセルｖｂａでフォームを開く時に、フォーム上のすべてのコマンドボタンの名前を取得したいのですが、
コードがわかりません。

Private Sub UserForm_Initialize()
Dim objcmd As Object
For Each objcmd In Me.ActiveControl
Debug.Print objcmd.Name
Next

だと、Me.ActiveControlでエラーになります。
適切なコードを教えてください。

回答No.2

real beatin（@realbeatin） · ベストアンサー

ユーザーフォームを開く時に、ユーザーフォーム上のすべてのコマンドボタンの名前を取得

Private Sub UserForm_Initialize()
Dim objMSFC As MSForms.Control
　　For Each objMSFC In Me.Controls
　　　　If TypeName(objMSFC) = "CommandButton" Then
　　　　　　Debug.Print objMSFC.Name
　　　　End If
　　Next
End Sub

みたいなことでしょうか。

回答No.1

kkkkkm

For Each objcmd In Me.Controls

だとだめですか？

お礼

どうもありがとうございました。