[fr-users] DRAW macro gestion des couches

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

Salutations

*F**rançois SEGUIN
* Tél : 06-83-48-82-38


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