[prog] Problème de version Ooo avec une ma cro

Tue, 24 Nov 2009 07:51:33 -0800 

Bonjour à tous,
Depuis la version 3 d'OpenOffice,dans un document CALC, nous avons un soucis avec ce bout de code qui envoie une photo sur writer, il plante à cette ligne *maPage.add(monImage) * *(Voir code ci-dessous)* Nous devons mettre un commentaire pour finir la macro et ignorer l'image. Je viens de ressayer sur une version antérieur V 2.2, tous fonctionne correctement. Pouvez nous donner petite astuce pour contourner ce problème de version à part réinstaller une version antérieur. 


Avec tous mes remerciements pour ceux qui se seront attardés sur ce bout 
de code.

Cordialement

Nom_fichier:    dim  resultat as double
   sdir=dir("S:\Photos avec Nom\*.JPG",0) ' juste les noms des fichiers
   do while len (sdir) > 0
       resultat= val(sdir)
       if resultat= val(Ecrou) then
       return
       end if
       sdir=dir()
   loop

          
       Print "Photo indisponible"   
      
       gosub ferme

return

affiche:
   dim monDocument as Object, maPage as Object
   Dim monImage as Object, ImageL as Object
   Dim oTexte as Object
   Dim oCurseur as Object
   Dim positionImage as new com.sun.star.awt.Point
   if sdir="" then
       return
   end if

oTexte = doc.text
oCurseur = oTexte.createTextCursor
oCurseur.gotoNextParagraph(false)
maPage = doc.DrawPage

ImageL = doc.createInstance("com.sun.star.drawing.GraphicObjectShape")

ImageL.GraphicURL= ConvertToURL( "S:\Photos avec Nom\" & sdir )

maPage.add(ImageL) 'Cette image temporaire est liée

positionImage.x = 15400
positionImage.y = 3100
monImage = doc.createInstance("com.sun.star.drawing.GraphicObjectShape")


monImage.graphicObjectFillBitmap = ImageL.GraphicObjectFillBitmap 'on 
Charge l'image temporaire dans mon image


monImage.Anchortype = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH
*maPage.add(monImage) 'On intègre cette image dans la page*

maPage.remove(ImageL) 'On supprime l'image d'origine

resizeImageByWidth(monImage, 2700) 'On fait appelle à la fonction pour 
retailler l'image

monImage.setposition(positionImage)
monImage.Printable = false



---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org





















					Répondre à