ShapeNodes.SetPosition-Methode (Publisher)

Legt die Position des angegebenen Knotens fest. Je nach Bearbeitungsart des Knotens kann diese Methode sich auf die Position angrenzender Knoten auswirken.

Syntax

Ausdruck. SetPosition (Index, X1, Y1)

Ausdruck Eine Variable, die ein ShapeNodes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Index	Erforderlich	Integer	Der Knoten, dessen Position festgelegt werden soll. Muss eine Zahl zwischen 1 und der Anzahl von Knoten in der angegebenen Form sein, sonst tritt ein Fehler auf.
X1	Erforderlich	Variant	Die horizontale Position des Knotens relativ zur linken oberen Ecke der Seite.
Y1	Erforderlich	Variant	Die vertikale Position des Knotens relativ zur linken oberen Ecke der Seite.

Hinweise

Für die Argumente X1 und Y1 werden numerische Werte in Punkten ausgewertet. Zeichenfolgen können in beliebigen Einheiten enthalten sein, die von Microsoft Publisher unterstützt werden (z. B. "2,5 zoll").

Beispiel

Dieses Beispiel verschiebt den zweiten Knoten in der dritten Form in der aktiven Publikation um 200 Punkt nach rechts und um 300 Punkt nach unten. Es muss sich bei der Form um eine Freihandformzeichnung handeln.

Dim arrPoints As Variant 
Dim intX As Integer 
Dim intY As Integer 
 
With ActiveDocument.Pages(1).Shapes(3).Nodes 
 arrPoints = .Item(2).Points 
 intX = arrPoints(1, 1) 
 intY = arrPoints(1, 2) 
 .SetPosition Index:=2, X1:=intX + 200, Y1:=intY + 300 
End With 

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.