[Fwd: Re: [fr-users] macro : bitmap d'une section]

-------- Message transféré --------
De: oj <jaccomard@free.fr>
À: jeanmichel.coste@free.fr
Objet: Re: [fr-users] macro : bitmap d'une section
Date: Sun, 23 Aug 2020 10:28:17 +0200

Bonjour,

c'était une erreur de recopie (pour simplifier la macro utilisée, qui
contient d'autres paramètres).

Le code est le suivant (ch contient l'image, et est dans le même
répertoire que le document) :

function section3(dc,cs) 

        Dim sec as object
        Dim ch as string

         ch="lignecahier.jpg"
         sec=dc.createInstance("com.sun.star.text.TextSection")
         sec.backgraphicURL=ConvertToURL(ch)
 
End function

Pour l'instant, l'image en question n'apparait pas en fond pour la
section.

Cordialement,
O.J.


Le dimanche 23 août 2020 à 10:18 +0200, jeanmichel.coste@free.fr a
écrit :
> Pourquoi cette variable (masection) ne semble-t-elle pas affectée ?
> Avec option explicit on verrait tout de suite l'erreur ( s'il y en a
> une...)
> Cdt
>
> Jean-Michel Coste
>
> Le 23 août 2020 09:26, oj <jaccomard@free.fr> a écrit :
> > Le dimanche 23 août 2020 à 09:01 +0200, Jean-Luc a écrit :
> > > Bonjour
> > > Pourquoi 2 variables sec  et masection ?
> > >
> > > Utiliser la même me semblerait plus judicieux.
> > Bonjour,
> > Oui, une erreur en voulant simplifier le code initial, pour la
> > liste.
> > C'était bien le même nom dans ma macro.
> > Cordialement,
> > O.J.
> > > Bonne journée
> > >
> > > Le dim. 23 août 2020 à 08:53, oj <jaccomard@free.fr> a écrit :
> > > > Bonjour à tous.
> > > >
> > > >
> > > > Je cherche, par macro, à :
> > > > - créer une section (ça, j'y arrive).
> > > > - y mettre un fond bitmap de mon crû (ça, je n'y arrive pas).
> > > >
> > > > Voilà ma macro actuelle (simplifiée - ch contient l'image, et
> > est
> > > > dans
> > > > le même répertoire que le document) :
> > > >
> > > > function section3(dc,cs) 
> > > >
> > > >         Dim sec as object
> > > >         Dim ch as string
> > > >
> > > >         ch="lignecahier.jpg"
> > > >         sec=dc.createInstance("com.sun.star.text.TextSection")
> > > >         sec.backgraphicURL=ConvertToURL(ch)
> > > >
> > > > End function
> > > >
> > > > Quelqu'un a-t-il une idée, ou un exemple qui me permettrait
> > > > d'avancer ?
> > > > J'ai chercher sur internet sans trouver.
> > > >
> > > > Merci d'avance.
> > > >
> > > > Cordialement,
> > > > O.J.
> > > >
> > > >
> > > > -- 
> > > > Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour
> > vous
> > > > désinscrire
> > > > Les archives de la liste sont disponibles à 
> > > > https://listarchives.libreoffice.org/fr/users/
> > > > Privacy Policy: https://www.documentfoundation.org/privacy
> > -- 
> > Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous
> > désinscrire
> > Les archives de la liste sont disponibles à 
> > https://listarchives.libreoffice.org/fr/users/
> > Privacy Policy: https://www.documentfoundation.org/privacy


-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy