Page.AddGuide-Methode (Visio)

Fügt einem Zeichenblatt eine Führungslinie hinzu.

Syntax

Ausdruck. AddGuide( _Type_ , _xPos_ , _yPos_ )

Ausdruck Eine Variable, die ein Page-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Typ	Erforderlich	Integer	Der Typ der hinzuzufügenden Führungslinie.
xPos	Erforderlich	Double	Die X-Koordinate eines Punkts auf der Führungslinie.
yPos	Erforderlich	Double	Die Y-Koordinate eines Punkts auf der Führungslinie.

Rückgabewert

Form

Bemerkungen

Die folgenden von der Visio-Typbibliothek deklarierten Werte sind gültige Werte für Führungslinientypen.

Konstante	Wert	Beschreibung
visPoint	1	Führungspunkt
visHorz	2	Horizontale Führungslinie
visVert	3	Vertikale Führungslinie

Beispiel

Mit dem folgenden Makro wird gezeigt, wie einem Zeichenblatt eine horizontale Führungslinie hinzugefügt wird.

 
Public Sub AddGuide_Example() 
 
 Dim vsoPages As Visio.Pages 
 Dim vsoPage As Visio.Page 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoPageHeightCell as Visio.Cell 
 Dim intPageHeightIU as Integer 
 
 'Get the Pages collection of the ThisDocument object. 
 Set vsoPages = ThisDocument.Pages 
 
 'Set the Page object to the first page of the Pages collection. 
 Set vsoPage = vsoPages(1) 
 
 'Get the Shapes collection of the vsoPage object. 
 Set vsoShapes = vsoPage.Shapes 
 
 'Get the page height in internal units. 
 Set vsoPageHeightCell = vsoPage.PageSheet.CellsSRC( _ 
 visSectionObject, visRowPage, visPageHeight) 
 intPageHeightIU = vsoPageHeightCell.ResultIU 
 
 'Add a guide to the Shapes collection and set it 
 'as the vsoShape object. The guide is a horizontal line 
 'running through the middle of the page. 
 Set vsoShape = vsoPage.AddGuide(visHorz,0,intPageHeightIU/2) 
 
End Sub

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.