Método Page.AddGuide (Visio)

Adiciona uma guia à página de desenho.

Sintaxe

expression. AddGuide( _Type_ , _xPos_ , _yPos_ )

Expressão Uma variável que representa um objeto Page .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Type	Obrigatório	Integer	O tipo de guia a ser adicionada.
Xpos	Obrigatório	Double	A coordenada x de um ponto na guia.
Ypos	Obrigatório	Double	A coordenada y de um ponto na guia.

Valor de retorno

Forma

Comentários

As constantes a seguir declaradas pela biblioteca de tipos do Visio são valores válidos para tipos de guias.

Constant	Valor	Descrição
visPoint	1	Ponto de guia
visHorz	2	Guia horizontal
visVert	3	Guia vertical

Exemplo

A macro a seguir mostra como adicionar uma guia horizontal a uma 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.