[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 !

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

Messagepar Fred18 » 10 Sep 2006 18:33

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   AgrandirRéduire
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 édition par Fred18 le 10 Sep 2006 20:04, édité 2 fois.
Windows XP , OpenOffice 2.0
Fred18
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 13
Inscrit le : 28 Mai 2006 09:55

Messagepar audionuma » 10 Sep 2006 19:41

Bonjour,

Code : Tout sélectionner   AgrandirRéduire
else
  for n = 0 to lesFormes.Count -1
    maForme = lesFormes(n)
   print maForme.Name

Code : Tout sélectionner   AgrandirRéduire
'ici manque un truc du genre positionForme = maForme.getPosition()
Code : Tout sélectionner   AgrandirRéduire
print positionForme.x
  next
end if
Mac OS X.5.8 / PPC G5 / LibreOffice 3.3.1
audionuma
Membre hOOnoraire
Membre hOOnoraire
 
Message(s) : 132
Inscrit le : 26 Mai 2006 08:24

Messagepar Fred18 » 10 Sep 2006 20:02

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
Fred18
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 13
Inscrit le : 28 Mai 2006 09:55


Retour vers Macros et API

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 11 invité(s)