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

2020-08-25 Par sujet Jean-Michel COSTE


Le 25/08/2020 à 13:09, Patrick a écrit :
N'y a-t-il pas la possibilité de récupérer l'URL du document et donc 
du dossier contenant le document et ainsi de construire le chemin 
complet d'une image en l'accolant au chemin du document ?
Cela permettrait de pouvoir transmettre le document (et son dossier) à 
quelqu'un d'autre et ne pas avoir le chemin absolu qui dépend de ton 
installation.


Bien sûr,

On récupère l'url du document en cours avec ThisComponent.url. On 
obtient un truc du genre :


URLfichier = ThisComponent.url

On obtient un truc du genre :

file:///I:/TrvOpen/Projets/D%C3%A9pannages/JP/Document.odt (au format 
url, quel que soit le système)


le dossier uniquement avec :

URLdossier = Tools.Strings.DirectoryNameoutofPath(ThisComponent.url, "/")

La bibliothèque Tools fait partie des macros de LibreOffice.

Bonne soirée

--
Jean-Michel Coste


--
Envoyez un mail à users+unsubscr...@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


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

2020-08-25 Par sujet oj
Le mardi 25 août 2020 à 13:09 +0200, Patrick a écrit :
> Bonjour,
> 
> 
> Le 25/08/2020 à 11:44, Jean-Michel COSTE a écrit :
> > Il vaut mieux (ou bien il faut absolument ?), dans tous les cas, 
> > préciser le chemin complet, puisqu’un document n'est connu (au
> > niveau 
> > de LibO) que par son URL.
> 
> N'y a-t-il pas la possibilité de récupérer l'URL du document et donc
> du 
> dossier contenant le document et ainsi de construire le chemin
> complet 
> d'une image en l'accolant au chemin du document ?
> Cela permettrait de pouvoir transmettre le document (et son dossier)
> à 
> quelqu'un d'autre et ne pas avoir le chemin absolu qui dépend de ton 
> installation.
> 
> Cordialement,
> Patrick
> 
Si, bien sûr (c'est ce que je fais pour l'instruction /i). Mais ici,
pour un fond de section, je ne suis pas sûr que ce soit judicieux.
Cordialement,
O.J.


-- 
Envoyez un mail à users+unsubscr...@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


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

2020-08-25 Par sujet Patrick

Bonjour,


Le 25/08/2020 à 11:44, Jean-Michel COSTE a écrit :


Il vaut mieux (ou bien il faut absolument ?), dans tous les cas, 
préciser le chemin complet, puisqu’un document n'est connu (au niveau 
de LibO) que par son URL.


N'y a-t-il pas la possibilité de récupérer l'URL du document et donc du 
dossier contenant le document et ainsi de construire le chemin complet 
d'une image en l'accolant au chemin du document ?
Cela permettrait de pouvoir transmettre le document (et son dossier) à 
quelqu'un d'autre et ne pas avoir le chemin absolu qui dépend de ton 
installation.


Cordialement,
Patrick

--
Envoyez un mail à users+unsubscr...@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


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

2020-08-25 Par sujet oj
Le mardi 25 août 2020 à 11:44 +0200, Jean-Michel COSTE a écrit :
> Le 25/08/2020 à 07:55, oj a écrit :
> > Pour ceux qui sont intéressés, sous libreoffice 7.0-Debian 10 :
> > -> les types png, bmp et jpg sont acceptés sans pb.
> > -> en revanche, il n'y a pas récupération automatique du chemin
> > courant
> > du doc courant, donc, pour l'image, il faut indiquer le chemin
> > complet
> > (c'est ce qui m'a mis sur la voie, dans le code de Jean-François).
> 
> Bonjour,
> 
> Il vaut mieux (ou bien il faut absolument ?), dans tous les cas, 
> préciser le chemin complet, puisqu’un document n'est connu (au niveau
> de 
> LibO) que par son URL.
> 
> Cordialement,
> 
> > -- 
> > Jean-Michel COSTE
Bonjour,
En fait, j'ai besoin de tout ça pour mettre des commandes au point pour
mon extension DocAlea (n'essayez pas de télécharger la version actuelle
: elle est trop buggée).
Par exemple, j'ai fait une commande "/i{nom du document à insérer}" qui
permet d'insérer un doc dans un autre. Et là, il est plus pratique pour
l'utilisateur que le dit doc soit dans le même répertoire que le doc
maitre, et qu'il n'ai pas à le préciser dans la commande.
De même, j'avais besoin de cet outil section parce que je voulais créer
une commande "/sec{nb de ligne; nom du doc de fond}" pour pouvoir
inséer des espaces d'écriture automatiquement dans un doc maitre.
En tout cas, merci à cette liste, pour ses aides rapides et
systématques, même dans les macros, qui sont pourtant un domaine plus
difficile à appréhender, je pense. Et un merci spécial à Jean-François, 
qui prend toujours le temps de répondre, et toujours de façon
pertinente.
Cordialement,
O.J.


-- 
Envoyez un mail à users+unsubscr...@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


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

2020-08-25 Par sujet Jean-Michel COSTE

Le 25/08/2020 à 07:55, oj a écrit :

Pour ceux qui sont intéressés, sous libreoffice 7.0-Debian 10 :
-> les types png, bmp et jpg sont acceptés sans pb.
-> en revanche, il n'y a pas récupération automatique du chemin courant
du doc courant, donc, pour l'image, il faut indiquer le chemin complet
(c'est ce qui m'a mis sur la voie, dans le code de Jean-François).


Bonjour,

Il vaut mieux (ou bien il faut absolument ?), dans tous les cas, 
préciser le chemin complet, puisqu’un document n'est connu (au niveau de 
LibO) que par son URL.


Cordialement,


--
Jean-Michel COSTE


--
Envoyez un mail à users+unsubscr...@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


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

2020-08-24 Par sujet oj
Bonjour, Jean-François,
Une fois encore, merci ! 
Même si j'avais bien fait l'insertion, tu m'as quand même mis sur la
voie.
Pour ceux qui sont intéressés, sous libreoffice 7.0-Debian 10 :
-> les types png, bmp et jpg sont acceptés sans pb.
-> en revanche, il n'y a pas récupération automatique du chemin courant
du doc courant, donc, pour l'image, il faut indiquer le chemin complet
(c'est ce qui m'a mis sur la voie, dans le code de Jean-François).
-> l'ordre des opérations a évidemment de l'importance (cf code de
Jean-François).
Cordialement,
O.J.
Le lundi 24 août 2020 à 09:36 +0200, jean-francois a écrit :
> Bonjour oj,
> 
> tu y étais presque... Il manquait l'insertion de la section créée
> dans 
> le texte ;)
> 
> Code testé fonctionnel (remplacer l'adresse de l'image par qqch
> d'utile) :
> 
> 8< --
> 
> Option Explicit
> 
> Sub Main
> 
>   Dim lo_Doc As Object
>   Dim lo_Sec As Object
>   Dim lo_TCur As Object
> 
>   lo_Doc = ThisComponent
>   lo_TCur = lo_Doc.Text.createTextCursor
>   lo_TCur.gotoEnd(False)
> 
>   lo_Sec = CreateSectionAtCursor(ThisComponent, lo_TCur,
> "MaSection", 
> "/home/jean-francois/Images/Debian.png")
>   
> End Sub 'Main
> 
> Function CreateSectionAtCursor(ByRef pDoc As Object, pCursor As
> Object, 
> pSecName As String, pBGName As String) As Object
> 'creates a section within a given document.
> 'Input:
> '-- pDoc: the target document.
> '-- pCursor: the text cursor where to insert the section.
> '-- pSecName: the section name.
> '-- pBGName: the section background image file name (in URL or OS
> form).
> 'Output: the created section object or Null if an error occurred.
> 
>   Dim lo_Sec As Object
>   
>   On Local Error Goto ErrHandler
>   
>   lo_Sec = pDoc.createInstance("com.sun.star.text.TextSection")
>   lo_Sec.Name = pSecName
>   lo_Sec.backgraphicURL = ConvertToURL(pBGName)
>   pDoc.Text.insertTextContent(pCursor, lo_Sec, False)
>   
>   ErrHandler:
>   'do nothing
> 
>   CreateSectionAtCursor = lo_Sec
> End Function 'CreateSectionAtCursor
> 
> -- >8
> 
> 
> Si vous répondez, merci de penser à utiliser la fonction "répondre à 
> tous" de votre logiciel de courrier électronique de façon que la
> liste 
> reçoive une copie de votre réponse.
> 
> Bien cordialement,
> Si vous répondez, merci de penser à utiliser la fonction "répondre à 
> tous" de votre logiciel de courrier électronique de façon que la
> liste 
> reçoive une copie de votre réponse.
> 
> Bien cordialement,
> -- 
> Jean-Francois Nifenecker, Bordeaux
> 
> 


-- 
Envoyez un mail à users+unsubscr...@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


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

2020-08-24 Par sujet jean-francois

Bonjour oj,

tu y étais presque... Il manquait l'insertion de la section créée dans 
le texte ;)


Code testé fonctionnel (remplacer l'adresse de l'image par qqch d'utile) :

8< --

Option Explicit

Sub Main

Dim lo_Doc As Object
Dim lo_Sec As Object
Dim lo_TCur As Object

lo_Doc = ThisComponent
lo_TCur = lo_Doc.Text.createTextCursor
lo_TCur.gotoEnd(False)

	lo_Sec = CreateSectionAtCursor(ThisComponent, lo_TCur, "MaSection", 
"/home/jean-francois/Images/Debian.png")


End Sub 'Main

Function CreateSectionAtCursor(ByRef pDoc As Object, pCursor As Object, 
pSecName As String, pBGName As String) As Object

'creates a section within a given document.
'Input:
'-- pDoc: the target document.
'-- pCursor: the text cursor where to insert the section.
'-- pSecName: the section name.
'-- pBGName: the section background image file name (in URL or OS form).
'Output: the created section object or Null if an error occurred.

Dim lo_Sec As Object

On Local Error Goto ErrHandler

lo_Sec = pDoc.createInstance("com.sun.star.text.TextSection")
lo_Sec.Name = pSecName
lo_Sec.backgraphicURL = ConvertToURL(pBGName)
pDoc.Text.insertTextContent(pCursor, lo_Sec, False)

ErrHandler:
'do nothing

CreateSectionAtCursor = lo_Sec
End Function 'CreateSectionAtCursor

-- >8


Si vous répondez, merci de penser à utiliser la fonction "répondre à 
tous" de votre logiciel de courrier électronique de façon que la liste 
reçoive une copie de votre réponse.


Bien cordialement,
Si vous répondez, merci de penser à utiliser la fonction "répondre à 
tous" de votre logiciel de courrier électronique de façon que la liste 
reçoive une copie de votre réponse.


Bien cordialement,
--
Jean-Francois Nifenecker, Bordeaux


--
Envoyez un mail à users+unsubscr...@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


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

2020-08-23 Par sujet Michel Rudelle - Listes LibO

Bonjour,

J'ai un doute concernant l'utilisation de ConvertToURL, il me semble que 
cette fonction attend une adresse complète et pas seulement le nom du 
fichier.


Mais j'avoue n'avoir jamais testé ce "raccourci" si le document est dans 
le même répertoire.



Le 23/08/2020 à 08:52, oj 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")
masection.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.



--
Cordialement,

Michel

PS: Si vous répondez, merci d'utiliser la fonction "répondre à tous" de votre 
logiciel
de courrier électronique de façon que la liste reçoive une copie de votre 
réponse.


--
Envoyez un mail à users+unsubscr...@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


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

2020-08-23 Par sujet oj
Le dimanche 23 août 2020 à 13:37 +0200, Jean-Luc a écrit :
> Autre piste
> 
> Pas trop sûr de moi, mais il me semble que les fonds (pages, section,
> …) sont des bitmap, pas des jpg.
> Avez-vous essayer « à la main » ?
> 
> à voir
> 
Bonjour,
Merci, déjà, pour les suggestions.
Cela dit, j'ai essayé en bmp, mais même pb : une section créée, mais
pas d'image de fond.
Je pense que je m'y prends mal au niveau des la macro (et, à la main,
en passant par format-> section->option-> add/import ..., avec le même
fichier, ça marche, bien sûr).
Cordialement,
O.J.
> Le dim. 23 août 2020 à 09:26, oj  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  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+unsubscr...@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+unsubscr...@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


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

2020-08-23 Par sujet Jean-Luc
Autre piste

Pas trop sûr de moi, mais il me semble que les fonds (pages, section, …)
sont des bitmap, pas des jpg.
Avez-vous essayer « à la main » ?

à voir

Le dim. 23 août 2020 à 09:26, oj  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  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+unsubscr...@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
> >
> >
>
>

-- 
*Jean-Luc*
Je ne mange pas que pour vivre…
Je ne vis pas que pour manger…

-- 
Envoyez un mail à users+unsubscr...@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


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

2020-08-23 Par sujet oj
 Message transféré 
De: oj 
À: jeanmichel.co...@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.co...@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  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  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+unsubscr...@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+unsubscr...@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+unsubscr...@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


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

2020-08-23 Par sujet oj


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.co...@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  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  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+unsubscr...@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+unsubscr...@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+unsubscr...@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


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

2020-08-23 Par sujet oj
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  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+unsubscr...@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+unsubscr...@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


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

2020-08-23 Par sujet Jean-Luc
Bonjour
Pourquoi 2 variables sec  et masection ?

Utiliser la même me semblerait plus judicieux.

Bonne journée

Le dim. 23 août 2020 à 08:53, oj  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")
> masection.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+unsubscr...@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
>


-- 
*Jean-Luc*
Je ne mange pas que pour vivre…
Je ne vis pas que pour manger…

-- 
Envoyez un mail à users+unsubscr...@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


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

2020-08-23 Par sujet oj
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")
masection.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+unsubscr...@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