[WD-2003] [..]Compression des images

[jcaspar]

Bnjour à tous !

Je souhaite mettre en place une macro qui me permette de comprimer
les images dans un document word

ces quelques lignes permettent d'ouvrir la fenêtre de compression des images, mais je ne parviens pas à valider le choix...

Auriez vous des idées pour résoudre cette problématique ?

En vous remerciant d'avance pour vos conseils et idées !

Code :

1
2
3
4
5
 
 
CommandBars.FindControl(ID:=6382).Execute
SendKeys "a"
SendKeys "{ENTER" }"

[Sepia]

Salut Jcaspar,

J'ai modifié ton code pour obtenir le résultat mais l'utilisation des propriétés des objets est meilleure car plus sûr mais j'ai pris cette voie puisque c'était la tienne.

Code :

1
2
3
4
5
 
   CommandBars("Picture").FindControl(Id:c82).Execute
   SendKeys "a"
   SendKeys "w"
   SendKeys "{enter}"

[/QUOTE]

@+