Bonjour,

Je cherche à couper un petit bandeau en bas d'une image par programmation.

J'ai trouvé ce message : http://www.developpez.net/forums/sho...d.php?t=171249
qui explique comment couper une image avec la librairie Windows Image Acquisition Automation Library v2.0.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub couperImage()
Dim Img1 As Object, IP As Object
 
Set Img1 = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
 
Img1.LoadFile ("C:\Documents and Settings\michel\dossier\fourmiz.jpg")
 
IP.Filters.Add (IP.FilterInfos("Crop").FilterID)
IP.Filters(1).Properties("Left") = Img1.Width / 6
IP.Filters(1).Properties("Top") = Img1.Height / 6
IP.Filters(1).Properties("Right") = Img1.Width / 6
IP.Filters(1).Properties("Bottom") = Img1.Height / 6
Set Img1 = IP.Apply(Img1)
 
Img1.SaveFile ("C:\sauvegarde_Image_Coupee.jpg")
End Sub
Cette source fonctionne trés bien, le problème c'est que je n'arrive pas à trouver les bonnes valeurs pour IP.Filters(1).Properties("Left") etc... pour couper seulement un petit bandeau d'une 10 aine de pixels de haut en bas de mon image et qui prends toute la largeur de mon image.

Merci d'avance de votre aide !


PS : Je travaille sur des .bmp