Problème de compression d'image en VB sous Excel 2007
Bonjour à tous,
J'ai écrit un programme en VB sous Excel 2003 qui me permettait de faire une modification des caractérisques des images. Je veux l'exécuter sous Excel 2007 mais le programme me génère une erreur de bibliothèque inconnue.
Voici le code du programme
Code:
1 2 3 4 5 6 7 8 9 10 11 12
|
Sub redimensionnerImage()
Dim Img As WIA.ImageFile, IP As WIA.ImageProcess
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile ("D:\image\photo.JPG")
IP.Filters.Add IP.FilterInfos("Scale").FilterID
IP.Filters(1).Properties("MaximumWidth") = 2500
IP.Filters(1).Properties("MaximumHeight") = 2500
Set Img = IP.Apply(Img)
Img.SaveFile "D:\image1\photo.JPG"
End Sub |
L'erreur concerne les bibliothèques ImageFiles, ImageProcess qui n'existeraient pas à partir de Office 2007.
Merci d'avance de votre apport.