Re: [prog] Problème de version Ooo avec une macro

[Gabriel]

Joel Bernard a écrit :
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
Bonjour Joël

Peux-tu donner l'erreur affichée ou son numéro.

Peux-tu aussi faire l'essai avec un wait 3000 (temporisation de 3 
secondes) juste avant la ligne qui plante.

A+

Gabriel