テキストボックスの名前

質問

エクセルシートにランダムに貼り付けられたテキストボックスの名前を調べるマクロを教えてください。
環境Windows XP
Office 2003
目的
Sheet1にテキストボックスがたくさん貼り付けれられている。
テキストボックスの数と名前を知りたい。

回答No.1

zap35 · ベストアンサー

シート上に配置した「コントロールツールボックス」のテキストボックス名を取得するマクロの一例です。
シートを追加してテキストボックス名を表示させるようにしています。

Sub Macro1()
Dim ws As Worksheet
Dim idx As Integer
　Set ws = ActiveSheet
　Worksheets.Add after:=ws
　For idx = 1 To ws.OLEObjects.Count
　　If TypeName(ws.OLEObjects(idx).Object) = "TextBox" Then
　　　Cells(idx, "A").Value = ws.OLEObjects(idx).Name
　　End If
　Next
End Sub

XP＋2003で確認しています

お礼

上手くいきました。
ありがとうございました。