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

Bonjour,

Toujours dans mes macros.

Je cherche à créer un style de dessin sous Impress via une Macro

J'ai un bout de code dans le livre Programmation OpenOffice et LO

Et j'essaye simplement de le faire tourner

j'ai recopié le bout de code, j'ai seulement changé le nom du style et 
de son héritage

> Dim monDocument As Object
> Dim lesFamilles As Object, uneFamille As Object
> Dim nouvStyle As Object
> monDocument = ThisComponent
> lesFamilles = monDocument.StyleFamilies
> uneFamille = lesFamilles.getByName("graphics")
> nouvStyle = monDocument.CreateInstance("com.sun.star.style.Style")
> uneFamille.insertByName("Non Texte", nouvStyle)
> nouvStyle.ParentStyle = "Text" ' hériter d'un style
J'ai un message d'erreur

Erreur d'exécution BASIC.

> Une exception s'est produite :
> Type: com.sun.star.lang.ServiceNotRegisteredException
> Message: unknown service: com.sun.star.style.Style.
si quelqu'un peut me sortir de là

Merci

Pierre


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