[Résolu][Draw]Récupérer la position d'une forme sélectionnée

[Fred18]

Bonjour,
Je cherche sur DRAW à récupérer par macro la position d'une forme que j'ai préalablement séléctionné.
Pour le moment, avec ma macro ci-dessous, j 'arrive à récupérer le Non de la forme mais la valeur de Position.X reste toujous nul .
Et la je bloque,merci pour votre aide

Code : Tout sélectionner

Sub PositionFormeSelectionnee()

Dim monDocument As Object, maPage As Object, n as long
Dim maForme As Object, lesFormes as object
Dim positionForme As New com.sun.star.awt.Point
monDocument = thisComponent
lesFormes = monDocument.CurrentSelection
if IsNull(lesFormes) then
  print "Aucune sélection !"
  exit sub
else
  for n = 0 to lesFormes.Count -1
    maForme = lesFormes(n)
	print maForme.Name
	print positionForme.x
  next
end if
End Sub

[audionuma]

Bonjour,

Code : Tout sélectionner

else 
  for n = 0 to lesFormes.Count -1 
    maForme = lesFormes(n) 
   print maForme.Name 

Code : Tout sélectionner

'ici manque un truc du genre positionForme = maForme.getPosition()

Code : Tout sélectionner

print positionForme.x 
  next 
end if 

[Fred18]

Merci beaucoup Audionuma ,
Réponse très rapide et en plus ça marche.
Il est génial ce forum