Re: Re: [fr-users] DRAW macro gestion des couches
Bonjour;
Je te rappelle que j'ai ouvert un bug sur ta macro.
C'est pas du même ordre ?
Nicolas Paour
Le 24/11/2019 à 12:32, linux a écrit :
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+unsubscr...@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
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+unsubscr...@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
