Page.AddGuide 方法 (Visio)

在绘图页上添加参考线。

语法

expression. AddGuide( _Type_ , _xPos_ , _yPos_ )

表达 一个代表 Page 对象的变量。

参数

名称	必需/可选	数据类型	说明
Type	必需	Integer	要添加的参考线的类型。
xPos	必需	Double	参考线上一点的 x 轴坐标值。
yPos	必需	Double	参考线上一点的 y 轴坐标值。

返回值

Shape

说明

下列由 Visio 类型库声明的常量是参考线类型的有效值。

常量	值	Description
visPoint	1	辅助点
visHorz	2	水平参考线
visVert	3	垂直参考线

示例

以下宏显示如何在页面上添加一条水平参考线。

 
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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。