Вопрос : Получать шнуры от textboxes

Я пытаюсь использовать следующий макрос для того чтобы перечислить все textboxes на листе вместе с их положениями и их текстовыми строками. Но я терплю неудачу на части текстовой строки. Может кто-то сказать мне правильно синтаксис для получать это?
For

Saqib

Sub GETOBJECTS () каждое Obj в msoTextBox
Case ActiveSheet.Shapes
Select/>rn = rn + 1
Cells (rn, 1) =
Cells «TextBox " (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
class=

Ответ : Получать шнуры от textboxes

Это кажется, что работает:

Клетки (rn, 6) = Obj.TextFrame.Characters.Text