CorwinOfAmber
XLDnaute Nouveau
Bonjour,
J'ai ecrit une macro qui insere des images dans ma feuille Excel, mais je me rends compte qu'avec un grand nombre d'images, la taille du fichier devient vraiment importante. J'ai trouvé dans la barre "Images" le bouton qui permet de compresser toutes les images, mais j'aurais souhaité intégrer cette action dans ma macro afin de ne pas avoir à le faire sur chacun de mes fichiers.
En cherchant un peu, j'ai trouvé comment actionner le bouton :
CommandBars("Picture").FindControl(ID:=6382).Execute
Mais une fois le menu affiché, ma macro attend que je valide la fenetre qui s'affiche. Donc a part m'économiser un clic, ca ne m'apporte rien pour l'instant.
Et j'ai eu beau inserer la suite :
SendKeys "{enter}"
Cette ligne ne s'execute pas et ne valide donc pas la fenetre de compression des images.
Y a-t-il moyen de "forcer" cette validation, ou bien meme d'effectuer cette compression par un autre moyen ?
D'avance merci !
Corwin
J'ai ecrit une macro qui insere des images dans ma feuille Excel, mais je me rends compte qu'avec un grand nombre d'images, la taille du fichier devient vraiment importante. J'ai trouvé dans la barre "Images" le bouton qui permet de compresser toutes les images, mais j'aurais souhaité intégrer cette action dans ma macro afin de ne pas avoir à le faire sur chacun de mes fichiers.
En cherchant un peu, j'ai trouvé comment actionner le bouton :
CommandBars("Picture").FindControl(ID:=6382).Execute
Mais une fois le menu affiché, ma macro attend que je valide la fenetre qui s'affiche. Donc a part m'économiser un clic, ca ne m'apporte rien pour l'instant.
Et j'ai eu beau inserer la suite :
SendKeys "{enter}"
Cette ligne ne s'execute pas et ne valide donc pas la fenetre de compression des images.
Y a-t-il moyen de "forcer" cette validation, ou bien meme d'effectuer cette compression par un autre moyen ?
D'avance merci !
Corwin