Bonjour à vous,
J'essaye de retrouver le comportement de l'action du bouton Rogner de la
barre d'Image avec :
Sub Main
Dim img As Object, crop As Object
img = FindImage(ImageTest)
If Not isNull(img) Then
crop = img.GraphicCrop
crop.Right = -50
img.GraphicCrop = crop
End If
End Sub
Bonjour,
Aladdin a écrit :
Bonjour à vous,
J'essaye de retrouver le comportement de l'action du bouton Rogner de la
barre d'Image avec :
Sub Main
Dim img As Object, crop As Object
img = FindImage(ImageTest)
If Not isNull(img) Then
crop = img.GraphicCrop
crop.Right = -50