Bonjour,

J'ai récupéré un objet graphique d'une présentation. Je redimmensionne cette image via la macro resizeImageByWidth du livre Programmation OpenOffice.org. A la fin de celle-ci mon image est bien redimensionnée (cf. les print de contrôle à la fin) mais lors de l'export je me retrouve avec les dimensions d'origine!

Quelqu'un a-t-il une idée car je sèche... Merci d'avance

Programme principal: ... resizeImageByWidth(MonObjet, Taille_anim) nb_image = nb_image + 1 On Error Goto errFich2 Adresse_export = convertToURL(Repertoire_base) & "/" & "gifs" Fichier_export = "diapo" & rang_page & "objet" & nb_image & ".gif" Print "Export du fichier ", Fichier_export," dans le répertoire: ",Adresse_export Adresse_export = Adresse_export & "/" & Fichier_export

serv.setSourceDocument(MonObjet) params(0).Name = "URL" params(1).Name = "MediaType" params(0).Value = Adresse_export params(1).Value = "image/gif" serv.filter(params())

Sub resizeImageByWidth(MonObject As Object, Taille_anim As Integer) 'cf p.633 Dim leBitMap As Object, Proportion As Double Dim Taille1 As New com.sun.star.awt.Size

LeBitmap = MonObject.GraphicObjectFillBitmap Taille1 = LeBitMap.Size ' taille en pixels ! Proportion = Taille1.Height / Taille1.Width Taille1.Width = Taille_anim ' largeur en 1/100 de mm Taille1.Height = Taille1.Width * Proportion MonObject.Size = Taille1 'print "Height" & Taille1.Height Réduction taille OK mais lors de l'export je retrouve ma taille initiale 'print "Width" & Taille1.Width End Sub

Logiciels libres: http://www.framasoft.net/ FCPE pays Salonais: http://fcpe13paysalonais.free.fr