Re: [fr-users] DRAW macro gestion des couches

Bonjour,

As tu essayé avec un nom sans accent?

Cordialement

Jean-Luc

Le 30/10/2019 à 16:26, François SEGUIN a écrit :
> Bonjour,
>
> J'ai téléchargé la macro exemple pour la visibilité des couches. le 
> code permet de rendre visible ou invisible une couche :
>
> Sub LibOCouche(LibOEvent)
>
> dim LibOGestCouches as object
>
> LibOGestCouches  = thiscomponent.LayerManager
>
>
> if LibOGestCouches.hasByName(LibOEvent.source.model.Label) then
> LibOGestCouches.getByName(LibOEvent.source.model.Label).IsVisible =_
> not(LibOGestCouches.getByName(LibOEvent.source.model.Label).IsVisible)
> else
>     msgbox "Pas de couche " & LibOEvent.source.model.Label
> end if
>
> End Sub
>
>
> Cette macro fonctionne correctement.
> ensuite j'ai modifié le code pour faire un essai en donnant 
> directement le nom de la couche. La macro devient :
> sub essai
>
> dim LibOGestCouches as object
>
>
> LibOGestCouches  = thiscomponent.LayerManager
>
> if LibOGestCouches.hasByName("Carrés") then
>     LibOGestCouches.getByName("Carrés").IsVisible =_
>     not(LibOGestCouches.getByName("Carrés").IsVisible)
> else
>     msgbox "Pas de couche "
> end if
> End sub
>  et là le code ne fonctionne plus impossible de rendre visible ou 
> invisible la couches. Quelqu'un a t'il une idée du pourquoi?
>
> merci de vos réponses

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