Afficher graphique en fonction du nom
Résolu
Enshuk
-
Enshuk -
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.
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
-
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à
-
