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

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Fred18
NOOuvel adepte
NOOuvel adepte
Messages : 13
Inscription : 28 mai 2006 08:55

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

Message par 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
Dernière modification par Fred18 le 10 sept. 2006 19:04, modifié 2 fois.
Windows XP , OpenOffice 2.0
audionuma
Membre hOOnoraire
Membre hOOnoraire
Messages : 132
Inscription : 26 mai 2006 07:24

Message par 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 
Mac OS X.5.8 / PPC G5 / LibreOffice 3.3.1
Fred18
NOOuvel adepte
NOOuvel adepte
Messages : 13
Inscription : 28 mai 2006 08:55

Message par Fred18 »

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