次の方法で共有


Page.AddGuide メソッド (Visio)

図面ページにガイドを追加します。

構文

expression. AddGuide( _Type_ , _xPos_ , _yPos_ )

Page オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
必須 Integer 追加するガイドの種類です。
xPos 必須 Double ガイド上の点の x 座標です。
yPos 必須 Double ガイド上の点の y 座標です。

戻り値

Shape

注釈

ガイドの種類に使用できる値は、Visio タイプ ライブラリで宣言されています。次の定数を指定できます。

定数 説明
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 のサポートおよびフィードバックを参照してください。