Discussion :

[Wanaka]

Bonjour à tous,

J'ai des shapes que je copie de PPT à Excel (je connais un peu de VBA Excel ...) et je voudrais copier le contenu des shapes dans des cellules.
Le probleme est que je n'arrive pas à accéder au texte des shapes.
J'ai essayer pas un enregistrement manuel, mais des que je touche à quoi que ce soit, plus rien ne marche ...
Connaissez vous la facon d'acceder au texte d'une shape ???

MErci !!

[fring]

Bonjour,

Pour accéder au texte d'une forme (Shape) la syntaxe est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shapes("NomForme").TextFrame.Characters.Text

Un exemple pour récupérer les textes de toutes les formes de la feuille 1 et coller ces textes dans la colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test_fring()
Dim Shp As Shape
 
For Each Shp In Sheets("Feuil1").Shapes
    Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp)(2) = Shp.TextFrame.Characters.Text
Next
 
End Sub

[Wanaka]

C'est exactement ce que je cherchais !!!
Un grand merci pour ton aide !