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

最近の書き込み件数：今日 0件、昨日 0件
未読分：3件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#3 2015年2月5日(木)12時08分
From: akira

返事削除変更

For Each objcmd In Me.Controls

だとだめですか？

Message#2 2015年2月5日(木)12時08分
From: katsura8

返事削除変更

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

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

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

Message#1 2015年2月5日(木)11時08分
From: フォーム相談

返事削除変更

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

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

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