Lire en anglais

Partager via


Page.AddGuide, méthode (Visio)

Ajoute un repère à une page de dessin.

Syntaxe

expression. AddGuide( _Type_ , _xPos_ , _yPos_ )

Expression Variable qui représente un objet Page .

Parameters

Nom Requis/Facultatif Type de données Description
Type Obligatoire Integer Type de repère à ajouter.
xPos Requis Double Coordonnée x d'un point sur le repère.
yPos Requis Double Coordonnée y d'un point sur le repère.

Valeur renvoyée

Shape

Remarques

Les constantes suivantes déclarées par la bibliothèque de types de Visio sont des valeurs de types de repère valides.

Constante Valeur Description
visPoint 1 Point de repère
visHorz 2 Repère horizontal
visVert 3 Repère vertical

Exemple

La macro suivante indique comment ajouter un repère horizontal à une 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.