Question : Obtention des cordes des boîtes à textes

J'essaye d'employer le macro suivant pour énumérer toutes les boîtes à textes sur une feuille ainsi que leurs positions et leurs cordes des textes. Mais j'échoue sur la cloison de corde des textes. Est-ce que quelqu'un peut me dire la syntaxe correcte pour obtenir ceci ?
For du

Saqib

Sub GETOBJECTS () chaque Obj dans le msoTextBox
Case d'ActiveSheet.Shapes
Select/>rn = rn + 1
Cells (rn, 1) =
Cells (rn de « boîte à textes ", 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= de

Réponse : Obtention des cordes des boîtes à textes

Ceci semble fonctionner :

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