次の方法で共有

Page.AddGuide Method

  • [アーティクル]
Visio Automation Reference

Adds a guide to a drawing page.

Version Information
 Version Added:  Visio 2.0

Syntax

expression.AddGuide(Type, xPos, yPos)

expression   A variable that represents a Page object.

Parameters

Name Required/Optional Data Type Description
Type Required Integer The type of guide to add.
xPos Required Double The x-coordinate of a point on the guide.
yPos Required Double The y-coordinate of a point on the guide.

Return Value
Shape

Remarks

The following constants declared by the Visio type library are valid values for guide types.

Constant Value Description

visPoint

1

Guide point

visHorz

2

Horizontal guide

visVert

3

Vertical guide

Example

The following macro shows how to add a horizontal guide to a page.

Visual Basic for Applications 
  
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

See Also