Chapter 9 Accès aux objets via VBScript

Positionnement d'un symbole à côté d'un autre

Vous positionnez un symbole à côté d'un autre à l'aide des points X et Y (respectivement Abscisse et Ordonnée) et de la combinaison de la méthode (Position As Apoint) et de la fonction (NewPoint(X As Long = 0, Y As Long = 0) As Apoint)).

Exemple

Dim diag
Set diag = ActiveDiagram
Dim sym1, sym2
Set sym1 = diag.Symbols.Item(0)
Set sym2 = diag.Symbols.Item(1)
X1 = sym1.Position.X
Y1 = sym1.Position.Y
' Move symbols next to each other using a fixed arbitrary space
sym2.Position = NewPoint(X1+5000, Y1)
' Move symbols for them to be adjacent
sym2.Position = NewPoint(X1 + (sym1.Size.X+sym2.Size.X)/2, Y1)

Copyright (C) 2005. Sybase Inc. All rights reserved.