Afficher graphique en fonction du nom [Résolu]

Signaler
-
 Enshuk -
Bonjour,

J'ai crée une macro qui récupère les graphiques et les mets dans un Word.
Le problème étant que j'ai vraiment beaucoup de graphique, et j'aimerais que tous les graphiques commençant par un caractère précis comme par exemple la lettre "G" se copient.

Avez-vous des idées ou pistes ?

Merci d'avance.

ActiveSheet.ChartObjects("Graphique1").Chart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
wrdApp.Selection.Goto what:=wdGoToBookmark, Name:="Graphique1" ' on recherche le signet dans Word pour se positionner
wrdApp.Selection.MoveRight wdCharacter, 1
'wrdApp.Selection.MoveLeft wdCharacter, 1 ' optionnel : pour se placer AVANT le signet (move left)
wrdApp.Selection.PasteSpecial link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False


Configuration: Windows / Chrome 78.0.3904.97

2 réponses

Messages postés
6566
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 février 2020
454
Bonjour,

Tu boucles sur tous tes graphiques:

https://vb.developpez.com/faqvba/?page=3.5#listgraphique

Tu mets une condition que la 1ère lettre soit un G:

https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-B

ensuite il suffit de mettre ton code dans la boucle avec condition

Voilà

Merci beaucoup !!