Page.AddGuide, méthode (Visio)
Ajoute un repère à une page de dessin.
expression. AddGuide
( _Type_
, _xPos_
, _yPos_
)
Expression Variable qui représente un objet Page .
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. |
Shape
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 |
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
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.