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
Mais cela ne fait que diminuer l'image en laissant de l'espace à droite.
Avec le dispatcher, j'obtiens :
dispatcher.executeDispatch(document, ".uno:GrafAttrCrop", "", 0, Array())
Mais je n'ai pas trouvé les options à lui passer.
Quelqu'un aurait une idée ?
Merci.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
