Método Page.AddGuide (Visio)

Agrega una guía a una página de dibujo.

Sintaxis

expresión. AddGuide( _Type_ , _xPos_ , _yPos_ )

Expresión Variable que representa un objeto Page .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Type	Obligatorio	Integer	Tipo de guía que se va a agregar.
xPos	Obligatorio	Double	Coordenada x de un punto de la guía.
yPos	Obligatorio	Double	Coordenada y de un punto de la guía.

Valor devuelto

Forma

Comentarios

Las siguientes constantes declaradas en la biblioteca de tipos de Visio son valores válidos para los tipos de guías.

Constante	Valor	Descripción
visPoint	1	Punto de guía
visHorz	2	Guía horizontal
visVert	3	Guía vertical

Ejemplo:

La macro siguiente muestra cómo agregar una guía horizontal a una página.

 
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.