Excel2003でシート上のコマンドボタンのコレクション

質問

シート上のコマンドボタンに対してループ処理をしたいのですが
コレクションがわかりません。
なんというコレクションに含まれるのでしょうか？

回答No.2

imogasi · ベストアンサー

色々やってみた結果（ほかにも方法があると思う）
シート上に直接コントロールを貼り付けた場合の例です。
フォームを介してません
Sub test01()
Dim obj As Object
For Each obj In Worksheets("Sheet1").OLEObjects
MsgBox obj.Name
MsgBox obj.Top
With obj
With .Object
MsgBox .BackColor
MsgBox .Font.Name
MsgBox .Caption
MsgBox obj.Shadow
obj.Shadow = True
.BackColor = vbCyan
End With
End With
Next
End Sub
を参考にやってみてください。
シートにコマンドボタン以外のコントロールがある場合は
For Each Obj In ActiveSheet.OLEObjects
の直ぐ下に
If obj.Name Like "ボタン*" Then
　　上記を挟む
　　Enf If
のような工夫が必要。
参考
http://www.moug.net/tech/exvba/0040034.htm

回答No.1

xls88

コントロールツールボックスのボタン
OLEObjects

フォームのボタン
Buttons

でいけると思います。

お礼

動きました。

ご回答いただいた皆さん、どうもありがとうございました。