Vraag : Het krijgen van koorden van textboxes

Ik probeer om de volgende macro te gebruiken om van alle textboxes op een blad samen met hun posities en hun tekstkoorden een lijst te maken. Maar ik ontbreek op het deel van het tekstkoord. Kan iemand me de correcte syntaxis voor het krijgen van dit vertellen?

Saqib

Sub GETOBJECTS ()
For Elke Obj in ActiveSheet.Shapes
Select/>Case van het Geval Obj.Type
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

Antwoord : Het krijgen van koorden van textboxes

Dit schijnt te werken:

Cellen (RN, 6) = Obj.TextFrame.Characters.Text