Discussion :

[exclusif]

Bonsoir,

J'ai un souci avec le code suivant qui provient du fichier d'aide de la dll wiaaut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Img 'As ImageFile
Dim IP 'As ImageProcess
 
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
 
Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"
 
IP.Filters.Add IP.FilterInfos("RotateFlip").FilterID
IP.Filters(1).Properties("RotationAngle") = 90
 
Set Img = IP.Apply(Img)
 
Img.SaveFile "C:\WINDOWS\Web\Wallpaper\Bliss90.bmp"

L'erreur que j'obtiens est la suivante : La propriété 'item' est 'ReadOnly' pour la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IP.Filters(1).Properties("RotationAngle") = 90

Je ne sais absolument pas quoi faire pour corriger.

Merci pour votre aide,

Ludo

[exclusif]

honte sur moi il fallait rajouter "Value"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IP.Filters(1).Properties("RotationAngle").value = 90