Page. addguide-Methode (Visio)Page.AddGuide method (Visio)

Fügt einem Zeichenblatt eine Führungslinie hinzu.Adds a guide to a drawing page.

SyntaxSyntax

Ausdruck.expression. AddGuide( _Type_ , _xPos_ , _yPos_ )

Ausdruck Eine Variable, die ein Page -Objekt darstellt.expression A variable that represents a Page object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
TypeType ErforderlichRequired IntegerInteger Der Typ der hinzuzufügenden Führungslinie.The type of guide to add.
XPosxPos ErforderlichRequired DoubleDouble Die X-Koordinate eines Punkts auf der Führungslinie.The x-coordinate of a point on the guide.
YPosyPos ErforderlichRequired DoubleDouble Die Y-Koordinate eines Punkts auf der Führungslinie.The y-coordinate of a point on the guide.

RückgabewertReturn value

FormShape

BemerkungenRemarks

Die folgenden von der Visio-Typbibliothek deklarierten Werte sind gültige Werte für Führungslinientypen.The following constants declared by the Visio type library are valid values for guide types.

KonstanteConstant WertValue BeschreibungDescription
visPointvisPoint 11 FührungspunktGuide point
visHorzvisHorz 22 Horizontale FührungslinieHorizontal guide
visVertvisVert 33 Vertikale FührungslinieVertical guide

BeispielExample

Mit dem folgenden Makro wird gezeigt, wie einem Zeichenblatt eine horizontale Führungslinie hinzugefügt wird.The following macro shows how to add a horizontal guide to a page.

 
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 FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.