VBA:convertir images en BMP
Bonjour à tous,
J'ai un problème concernant l'exploitation des iages présentes sur une feuille Excel.
Les images sont rangées dans la collection Shapes attaché à la feuille Excel. je récupère les Shape de type msopicture pour avoir que les images et je les enregistre. Mais pour l'instant je les enregistre en format GIF et je n'arrive pas a changer le format de la sauvegarde:
(onglet représente la feuille excel en question)
Code:
1
2
3
4
5
6
7
8
| If obj.Type = msoPicture Then
obj.CopyPicture , xlBMP
With onglet.ChartObjects.Add(0, 0, obj.Width, -obj.Height).Chart
.Paste 'colle l'image dans un graphique temporaire
'Sauvegarde au format image, dans le même -répertoire que ce classeur.
.Export princ.Cells(3, 4) & "\" & "images\" & -obj.name & ".gif", "GIF"
End With
endif |
Mon problème est donc le format de sauvegarde que je ne peux modifier( si je mets BMP a la place de GIF=> erreur 1004)
je recherche donc une autre méthode ou alors un convertisseur permettant de convertir un GIF en BMP
Si quelqu'un peut m'aider je le remercie par avance.
Bonne journée à tous
Rémi
