エクセルVBA/シェープの文字列を取得

質問

エクセル2010です。
BOOK内の各シートにボタンやチェックボックス、ラベルやテキストボックスなどが配置されています。
これらの貼り付けられたものの一覧を作りたいのです。

Sub obj_Check()
Dim st
Dim sp
Dim i As Long
For Each st In Sheets
For Each sp In st.Shapes
i = i + 1
With Sheets("Sheet3")
.Cells(i, "A").Value = sp.Name
' .Cells(i, "B").Value = sp.Caption　’これがエラー
.Cells(i, "C").Value = st.Name
End With
Next sp
Next st
End Sub

とやってみましたがsp.Captionがエラーになります。
.Cells(i, "B").Value = sp.Shapes.Range.Character.Text
としても同じです。
どうやったら、シェープに書かれた文字列が取得できるのでしょうか？

回答No.1

kkkkkm · ベストアンサー

http://blog.ch3cooh.jp/entry/20081124/1244599969

こちらが参考になりませんでしょうか。

お礼

ありがとうございます。
.TextFrame.Characters.Textとするのですね。
TextFrameが存在しないShapeもあるのでエラー回避をいれて以下でうまくいきました。

Sub obj_Check()
Dim st
Dim sp
Dim i As Long
For Each st In Sheets
For Each sp In st.Shapes
i = i + 1
With Sheets("Sheet3")
.Cells(i, "A").Value = sp.Name
On Error Resume Next
.Cells(i, "B").Value = sp.TextFrame.Characters.Text
On Error GoTo 0
.Cells(i, "C").Value = st.Name
End With
Next sp
Next st
MsgBox i & "個のChec終了"
End Sub