Position de la souris

fr-users
#1

Bonjour à tous,

Je cherche (en vain) à récupérer avec une macro la position de la souris sur un document Draw.

Elle s'affiche en bas du document à côté d'un petit rectangle.

J'arrive avec le document ci-dessous à récupérer une information mais qui n'est pas valable. Pour tester, cliquez sur le bouton puis cliquez sur le coin supérieur gauche du document.
La différence devrait être zéro.

https://dl.dropboxusercontent.com/u/13383870/Essai_souris.odg

Merci d'avance.

#2

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

#3

Bonjour,

Merci Pierre-Yves c'est exactement ce que je cherchais. :slight_smile:

Bonne fin de journée.