[fr-users] Re: Position de la souris

Bonjour


Didier Dorange-Pattoret wrote
> Je cherche (en vain) à récupérer avec une macro la position de la souris 
> sur un document Draw.

Pas le temps de chercher à comprendre ni à peaufiner mais si tu veux la
position affichée dans la barre d'état, le plus simple est peut-être d'aller
chercher l'info. là où elle est. Par exemple :

dim oBarre as object
dim oCoord as object
Dim Trav as variant

oBarre =
ThisComponent.CurrentController.Frame.LayoutManager.GetElement("private:resource/statusbar/statusbar")
oCoord = oBarre.RealInterface.AccessibleContext.getAccessibleChild(1)
Trav = split(oCoord.Text, ",")

print Trav(0) & "," & Trav(1) &  "," & left(Trav(2), 2) & " - " &
mid(Trav(2) , 3) & "," & Trav(3) & "," & Trav(4)
End Sub



--
View this message in context: 
http://nabble.documentfoundation.org/Position-de-la-souris-tp4132495p4132587.html
Sent from the Users mailing list archive at Nabble.com.

-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés