Discussion :

[rivierebruno22]

Bonjour,

Quelqu'un connait-il le code VBA qui équivaut aux actions suivantes

Dans le ruban "Format" de "Outils Image", la fonction "compresser les images" avec les paramètres suivants :

- Appliquer à : toutes les images du document
- Changement de résolution : Site Web/écran
- Options : Compresser les images et supprimer les zones de rognage des images.

D'avance merci a toutes et à tous

Bruno

[rivierebruno22]

Bonjour,

J'ai avancé dans ma recherche, avec le code suivant j'arrive a ouvrir la boite de dialogue pour la compression d'image

Code :

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

CommandBars("Picture").FindControl(ID:=6382).Execute

Maintenant, reste à pouvoir piloter cette boite de dialogue en VBA
J'ai lu sur le net qu'avec les commandes suivantes cela doit fonctionner :

Code :

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

1
2
SendKeys "w"
SendKeys "{enter}"

Malheureusement, cela ne marche pas, la boite de dialogue détient le focus et ses commandes ne sont appelées qu'apres.

Comment faire ?

D'avance merci

[LeTéto]

Bonsoir,

Idem sur MSO365, qui connait la fonction ?

La question date de 2009

A +

[E KERGRESSE]

Bonjour,

Clic droit dans la barre d'accès rapide :

• Choisir Onglet Outils image | Format de l'image
• Sélectionner l'icône Compresser les images et l'ajouter dans la fenêtre de droite.

En choisissant "Pour tous les documents par défaut" dans la liste déroulante en haut à droite, l'icône sera placé dans le Normal.dot.

A noter que la boite de dialogue n'a pas le même aspect selon qu'une image est sélectionnée ou non.