Questione : Ottenendo le stringhe dalle caselle di testo

Sto provando ad usare la seguente macro per elencare tutte le caselle di testo su uno strato insieme alle loro posizioni ed alle loro stringhe di testo. Ma sto venendo a mancare sul divisorio della stringa di testo. Può qualcuno dirmi la sintassi corretta per ottenere questo?
For del

Saqib

Sub GETOBJECTS () ogni Obj nel msoTextBox
Case di ActiveSheet.Shapes
Select/>rn = Marina militare + 1
Cells (Marina militare, 1) =
Cells (Marina militare “della casella di testo ", 2) = Obj.Left
Cells (Marina militare, 3) = Obj.Top
Cells (Marina militare, 4) = Obj.Width
Cells (Marina militare, 5) = Obj.Height
Cells (Marina militare, 6) = Obj.Characters.Text
End Select
Next Obj
End Sub
class= del

Risposta : Ottenendo le stringhe dalle caselle di testo

Ciò sembra funzionare:

Cellule (Marina militare, 6) = Obj.TextFrame.Characters.Text