Pytanie : Sznurek od textboxes

I próbować the następujący macro wszystkie the textboxes na prześcieradło wraz z ich pozycja i ich tekst sznurek. Ale I nie udać się na the tekst sznurek część. Móc to the poprawny składnia dla to?

Saqib

Sub GETOBJECTS ()
For/> Obj W ActiveSheet.Shapes
Select Skrzynka Obj.Type
Case msoTextBox
rn = rn + 1
Cells (rn, 1) = "TextBox "
Cells (rn, 2) = Obj.Left
Cells (rn, 3) = Obj.Top
Cells (rn, 4) = Obj.Width
Cells (rn, 5) = Obj.Height
Cells (rn, 6) = Obj.Characters.Text
End Select
Next Obj
End Sub

Odpowiedź : Sznurek od textboxes

To pojawiać się:

Komórka (rn, 6) = Obj.TextFrame.Characters.Text