Fråga : Att få stränger från textboxes

Pröva förmiddag I att använda efter makroen för att lista alla textboxes på en täcka samman med deras placerar, och deras text stränger. Men I-förmiddagen som missar på texten, stränger del. Kan någon berätta mig den korrekta syntaxen för att få detta?
For för

Saqib

Sub GETOBJECTS () varje Obj i msoTextBox
Case för ActiveSheet.Shapes
Select/>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
" klar "

Svar : Att få stränger från textboxes

Detta verkar att fungera:

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