Frage : Erhalten der Schnüre von den area per informazioni

Ich versuche, das folgende Makro zu verwenden, um alle area per informazioni auf einem Blatt zusammen mit ihren Positionen und ihren Textfolgen zu verzeichnen. Aber ich falle auf dem Textfolgefach aus. Kann jemand mir die korrekte Syntax für das Erhalten dieses erklären?

Saqib

Sub GETOBJECTS ()
For jedes Obj ActiveSheet.Shapes
Select Fall Obj.Type
Case im msoTextBox
rn = rn + 1
Cells (rn, 1) = „area per informazioni "
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

Antwort : Erhalten der Schnüre von den area per informazioni

Dieses scheint zu arbeiten:

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