Bonjour à tous,
J'ai pas mal cherché, mais j'ai rien trouvé
Avec ce code MichelXLD, que je remercie au passage, on peut retravailler des images contenues sur le disque dur et les enregistrer sous un autre format sur le disque dur. Ok
Voici la macro:
Code:
'Redimensionner une image
Sub redimensionnerImage()
Dim Img As Object, IP As Object
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile "C:\Documents and Settings\michel\dossier\fourmiz.JPG"
IP.Filters.Add IP.FilterInfos("Scale").FilterID
IP.Filters(1).Properties("MaximumWidth") = 90
IP.Filters(1).Properties("MaximumHeight") = 90
Set Img = IP.Apply(Img)
Img.SaveFile "C:\Documents and Settings\michel\dossier\fourmizThumbnail.JPG"
End Sub
Mais peut-on prendre des images mises sur une feuille Excel et les enregistrer sur le Disque dur sur le même principe?