Afficher graphique en fonction du nom

Résolu/Fermé
Enshuk - 13 févr. 2020 à 09:19
 Enshuk - 13 févr. 2020 à 10:37
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

cs_Le Pivert Messages postés 7870 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 23 janvier 2023 723
Modifié le 13 févr. 2020 à 10:34
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à

1
Merci beaucoup !!
0