Version imprimable
Bonjour,
J’ai une macro, faite avec l’enregistreur de macro, qui permet d’insérer une image dans EXCEL :
ActiveSheet.Pictures.Insert(Chemin_Image).Select
Cette macro fonctionne parfaitement, mais je viens de me rendre compte que la fonction "Compresser les images" ne fait rien avec les images insérées via la macro, alors qu’elle fonctionne bien avec la même image insérée via les fonctions du menu EXCEL (Insertion / Image …)
Avez-vous solution à ce problème ?
Merci
j'ai fait un fichier exemple mais je n'arrive pas à le télécharger sur le site, j'ai le mesage d'erreur suivant Pièce jointe 668032
Bonjour kido63, le forum,
Je t'avoue ne pas savoir comment contrôler si la fonction "Compresser les images" fait quelque chose ou pas...Citation:
la fonction "Compresser les images" ne fait rien
À l'aveugle, tu peux tester en insérant l'image avec ce code :
A+Code:ActiveSheet.Shapes.AddPicture(Chemin_Image, False, True, 0, 0, -1, -1).Select
Bonjour,
Ou peut-être, non testé, avec AddPicture2, dont le dernier paramètre permet la compression?
Bonjour mromain,
Merci pour ton code, il fonctionne parfaitement.
L’image s’insert au niveau de la cellule A1, donc si on se trouve ailleurs, on ne voit pas l’image arriver, saurais-tu comment faire pour qu’elle s’insert au niveau de la cellule sélectionnée ?
Merci.
(Si la fonction "Compresser les images" fonctionne, tu vas voir la qualité de l'image baisser nettement à l'œil en zoomant.)
Bonjour kido63, mapeh, le forum,
Tu peux tester ainsi :Citation:
comment faire pour qu'elle s'insert au niveau de la cellule sélectionnée
A+Code:ActiveSheet.Shapes.AddPicture(Chemin_Image, False, True, ActiveCell.Left, ActiveCell.Top, -1, -1).Select
Parfait
Merci mapeh et mromain
