Discussion :

[laurent27530]

Bonjour,

Je voudrais redimensionner un graphique que j'envoie vers word

pour le copier j'utilise la commande suivante :

Code :

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

1
2
3
4
5
6
7
Windows(ref).Activate
Sheets("PROBLEME").Select
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Copy
 
AppWord.ActiveDocument.Bookmarks("I7").Range.PasteSpecial
Application.CutCopyMode = False

je voudrais adjuster le graphique à la largeur de la page word - merci pour votre aide

[Jean-Philippe André]

Salut,

le plus simple pour arriver a une piste :
utilise l'enregistreur de macro sous Word pour voir le resultat, on tachera d'adapter ton code par la suite =]