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 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.
Tu trouveras ici des infos utiles : http://api.openoffice.org/docs/common/ref/com/sun/star/text/TextGraphicObject.html Francois --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
