マクロ初心者です。エクセルのあるシートにテキストボックスが2個張り付い

質問

マクロ初心者です。エクセルのあるシートにテキストボックスが2個張り付いてます。 テキストボックスの番号はわからず任意に変化します。この２つのテキストボックスの番号を取得するマクロを教えて下さい。（テキストボックスの番号とは、テキストボックスを選択した時に名前ボックスに表示される番号のことです。）

回答No.3

Wendy02

Active X コントロールの場合は、Index はあるのですが、コレクションで指定できませんから、以下のような曖昧なコードから、選び出すことになります。一種類しかないのなら、そのままOLEObjectsから導きだしても可能です。

Index は、左上にあるものから、右下に順に番号がふられます。(移動すれば別です）

'//ActiveX
Sub Test1()
　Dim obj As Object
　With ActiveSheet
　　　For Each obj In .OLEObjects ''いろんな種類がある場合は、以下のようにしないと区別つかない。
　　　　If TypeOf obj.Object Is MSForms.TextBox Then
　　　　　''obj.Select 'あまり働いていない。
　　　　　MsgBox obj.Index & " " & obj.Name
　　　　End If
　　　Next
　End With
End Sub

'//オートシェイプ
Sub Test2()
　Dim o As Object
　With ActiveSheet
　　For Each o In .TextBoxes 'VBA側では、隠しオブジェクになっています。
　　　o.Select
　　　MsgBox o.Index & " " & o.Name
　　Next
　End With
End Sub

補足

助言ありがとうございます。
Test1()では何も表示しませんでした。
Test2()ではＴextBoxクラスのindexプロパティを取得できませんというエラーメッセージが出ました。