Pergunta : Começ cordas dos textboxes

Eu estou tentando usar o seguinte macro para alistar todos os textboxes em uma folha junto com suas posições e suas cordas de texto. Mas eu estou falhando na divisória da corda de texto. Pode alguém dizer-me a sintaxe correta para começ isto?
For do

Saqib

Sub GETOBJECTS () cada Obj no msoTextBox
Case de ActiveSheet.Shapes
Select/>rn = rn + 1
Cells (rn, 1) =
Cells do “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= do

Resposta : Começ cordas dos textboxes

Isto parece trabalhar:

Pilhas (rn, 6) = Obj.TextFrame.Characters.Text