[Writer] MaForme.Position inopérant

[joel275]

Bonjour à tous,

encore un problème sur lequel je bute depuis une semaine:
la méthode "Position" appliquée à une forme n' a aucun effet sur un rectangle dans une macro et cela me laisse perplexe

Je cherche en vain à comprendre et donc à bien isoler le problème; c'est pourquoi je fournis un fichier assez conséquent que je n'ai pas pu réduire plus. J'espère qu'il sera quand même assez clair. (voir nouveau fichier ci-dessous)

je vous remercie de votre aide.

Bonne après midi à tous Joël


Bon dimanche.

[Pierre-Yves Samyn]

Bonjour

J'ai réussi à allèger le fichier problème (sans mieux comprendre)

Quant à moi, j'avoue avoir renoncé à comprendre ton code... Ce que je peux te dire, en espérant que cela aide, c'est que si je sélectionne manuellement le rectangle contenant C, le code suivant le place à la position voulue :

Code: Tout sélectionner   AgrandirRéduire

Sub Main
Dim jPoints As New com.sun.star.awt.Point
jPoints.X = 2310
jPoints.Y = 2310

ThisComponent.CurrentSelection(0).Position = jPoints

End Sub

[joel275]

Bonjour à tous,

Merci Pierre-Yves de t'être penché sur mon code qui n'est pas très simple.
Le point C est un groupe formé de 3 objets: 2 lignes (fabriquées avec CreLigne et un rectangle fabriqué avec CreRectangle.
Le groupe se positionne parfaitement, mais si je dégroupe et essaie de déplacer le seul rectangle avec DeplacePoint, ça marche avec les goupes "A" et "B" mais pas avec le groupe "C", 3 groupes qui ont pourtant étés fabriqués avec la même routine NouveauDessin à partir d'un texte.
Je vais essayer de rendre plus compact et clair mon code.

A plus.

Edition: fichier joint amélioré