XL 2013 lire le texte d'une shapes dessin à main levée (erreur 1004)

patricktoulon

XLDnaute Barbatruc
bonjour a tous
quelqu'un sait comment lire le texte d'une shape (dessin a main levée)
j'ai une belle erreur 1004
demo4.gif
 
Solution
Bonjour Patrick
J'ai appris ça aujourd’hui : :)
VB:
Sub essai()
    MsgBox ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text
    MsgBox ActiveSheet.Shapes("Forme libre 2").TextFrame2.TextRange.Characters.Text
End Sub

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Patrick
J'ai appris ça aujourd’hui : :)
VB:
Sub essai()
    MsgBox ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text
    MsgBox ActiveSheet.Shapes("Forme libre 2").TextFrame2.TextRange.Characters.Text
End Sub
 

Pièces jointes

  • Classeur1.xlsm
    18.1 KB · Affichages: 9

Statistiques des forums

Discussions
312 153
Messages
2 085 802
Membres
102 981
dernier inscrit
fred02v