Re: [fr-users] Re: Créer un Style Impress par une macro

Bonjour,
Merci, c'est bien comme qu'il faut faire, je regarderai si j'ai mal lu 
le bouquin, en tout cas, ça fonctionne très bien, c'est une grosse 
économie de travail !

Merci encore

Pierre

Le 07/06/2020 à 14:59, pierre-yves samyn a écrit :
> Suite...
>
> J'ai oublié d'utiliser la constante dans l'instruction de création.
> Il faut donc remplacer par :
>
> Sub PysCreateGraphicStyle
>
> const STYLE_NAME = "pys"
>
> Dim oDoc As Object
> Dim oGraphics As Object
> Dim oStyle As Object
>
> oDoc = ThisComponent
> oGraphics =oDoc. StyleFamilies.getByName("graphics")
>
> if oGraphics.hasByName(STYLE_NAME) then
>         msgbox "Le style " & STYLE_NAME & " est déjà créé", MB_ICONINFORMATION,
> "Création de style"
> else    
>         oStyle = oGraphics.createInstance("com.sun.star.style.Style")
>         oStyle.parentStyle = "objectwithoutfill"
>         oGraphics.insertByName( STYLE_NAME,  oStyle)
> end if
>
> End Sub
>
> Cordialement
>
>
>
> --
> Sent from: http://document-foundation-mail-archive.969070.n3.nabble.com/Users-f1744091.html


--
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