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
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")
Bonjour
Ci-dessous l'exemple pour créer un style de dessin "fils" de Standard>Objet
sans remplissage:
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
Re-Bonjour,
Le problème ensuite est de trouver les noms originaux des styles, pour
ceux qui sont traduits...
Pour ça, il y la le superbe script d'Andrew Pitonyak (DisplayAllStyles)
dans son document :
https://www.openoffice.org/fr/Documentation/Guides/Andrew5.pdf
Cordialement,
--
Jean-Mic
Bonjour,
Donc, en fait dans le listing de Pierre, il fallait remplacer
MonDocument.CreateInstance par uneFamille.CreateInstance
C'est différent des styles dans Writer...
Bonne fin de dimanche...
JM
Le 07/06/2020 à 14:59, pierre-yves samyn a écrit :
Suite...
J'ai oublié d'utiliser la const