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 à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
