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