利用用途

図面を開く

利用するツール

Open メソッド (Documents コレクション) : 既存図面を開きます。
Add メソッド (Documents コレクション) : 新規図面を開きます。

構文

【Open メゾット】

docObjRet = docsObj.Open (FileName)

【Add メゾット】

式.Add(FileName)

サンプル コード

Public Sub OpenDocument_Example()
'既存図面を開くには Open メゾットを利用
'新規図面を作成するには Add メゾットを利用
    Dim vsoDocument As Visio.Document
    '既存の図面を開く
    Set vsoDocument = Documents.Open("C:\Demo\Sample.vsd")

    '新規図面を開く
    Set vsoDocument = Documents.Add("")
    'テンプレートを開く
    Set vsoDocument = Documents.Add("C:\Demo\Sample.vst")
End Sub

 

利用用途

図面を閉じる

利用メゾット

Document.Close メソッド : 図面を閉じます。

構文

式.Close

サンプルコード

Sub DocumentClose_Example()
    '図面を閉じる
    ThisDocument.Close
End Sub

利用用途

図面ページを追加する。

利用ツール:Pages.Add メソッド

図面ページを追加します。

構文

式.Add

サンプルコード

Public Sub Add_Page_Example()
'ページを追加する
Set pagObj = ThisDocument.Pages.Add
'ページ名を変更する
For Each objPage In ThisDocument.Pages
    I = I + 1
    objPage.Name = "図面" & I Next
End Sub

利用用途

オブジェクト一覧を取得する
図面のステンシル、シェイプの一覧を取得する

利用ツール

【Debug オブジェクト】

実行時にイミディエイト ウィンドウに出力を送ります。

【Print メソッド】

変数の値をイミディエイト ウィンドウに表示します。
Print メソッドは、テキストを表示できるオブジェクトにのみ適用できます。

構文

【Print メソッド】

object.Print [outputlist]

サンプルコード

Sub GetStenci_Example()
Dim Mydocs As Documents
Dim Mydoc As Document
Set Mydocs = Visio.Documents
    'ステンシルの一覧を表示
    For Each Mydoc In Mydocs
        Debug.Print Mydoc.Name
    Next
End Sub

利用用途

図面ページにマスタ シェイプをドロップします。

利用メゾット

Page.Drop メソッド

構文

Drop(ObjectToDrop, xPos, yPos)

サンプルコード

Public Sub DropShape_Example()
Dim stencil As Visio.Document,
mstCircle As Visio.Master
'ステンシルを指定
Set stencil = ThisDocument.Application.Documents.Open("SERVER_M.VSS")
ThisDocument.Application.Windows(ThisDocument.Index).Activate
'マスタシェイプを指定
Set mstCircle = stencil.Masters("電子メール サーバー")
'シェイプをページにドロップ　X座標、Y座標を指定
ThisDocument.Pages(1).Drop mstCircle, 7, 3
End Sub

利用用途

ページの表示、非表示を切り替える

利用するツール

シェイプシートの UIVisibility セル: Page Properties セクション内にあります。値が 0 だとそのページが表示され、1 ドローイング エクスプローラ内やページ タブ上で非表示になります。

【Shape.CellsSRC プロパティ】

セクション、行、列を指定してシェイプシートのセルを Cell オブジェクトとして返すプロパティです。
式.CellsSRC(Section, Row, Column)

【Cell.FormulaU プロパティ】

Cell オブジェクトの構文や値の取得、設定をします。
式.FormulaU = stringexpression

サンプルコード

Public Sub InvisiblePage_Example()

    'ページのシェイプシート内の UIVisibility 値をチェックする
    If ThisDocument.Application.ActiveWindow.Shape.CellsSRC(visSectionObject, visRowPage, visPageUIVisibility).FormulaU = 1 Then
    '値が 1 なら 0 に設定
        ThisDocument.Application.ActiveWindow.Shape.CellsSRC(visSectionObject, visRowPage, visPageUIVisibility).FormulaU = 0
    Else
    '値が 1 以外なら 1 に設定
        ThisDocument.Application.ActiveWindow.Shape.CellsSRC(visSectionObject, visRowPage, visPageUIVisibility).FormulaU = 1
    End If

End Sub

利用用途

カスタムのツールバーを作成する

利用するツール

【CommandBar オブジェクト】

コマンドバーのオブジェクトです。さまざまなプロパティを設定して、コマンドバーの外観を調整できます。サンプルでは、CommandBar.Visible プロパティを True にして、作成したツールバーを見えるようにしています。このプロパティをオンにしないとオブジェクトが表示されません

サンプルコード

Public Sub CreateToolBar()
    'CommandBars オブジェクトを作成する
    Set myVisioBar = Application.CommandBars.Add
    'オブジェクトの Visible を True にして画面に表示する
    myVisioBar.Visible = True
End Sub

利用用途

カスタム ツールバーにボタンを追加する

利用するツール

【CommandBarControls.Add メソッド】

ツールバー上のボタンの集合は CommandBarControls コレクションとして扱います。Add メソッドでボタンを追加すると CommandBarControl を返します。その際さまざまな引数を指定することでボタンを外観や種類を変えることができます。

引数の一例

【CommandBarControl オブジェクト】

ツールバー上のボタン 1 つ 1 つのオブジェクトです。プロパティでボタンの機能を指定できます

プロパティの一例

サンプルコード

Public Sub CreateToolBar()
    'CommandBars オブジェクトを作成する
    Set myVisioBar = Application.CommandBars.Add
    'オブジェクトの Visible を True にして画面に表示する
    myVisioBar.Visible = True

    ' ID4 を指定して印刷ボタンを追加
    myVisioBar.Controls.Add ID:=4

    'カスタムのボタンを追加
    Set myVisioButton = myVisioBar.Controls.Add(Type:=msoControlButton)
    'カスタムのボタンのテキストを指定
    myVisioButton.Caption = "僕のボタン"
    'カスタムのボタンにマクロを割り当てる
    myVisioButton.OnAction = "ThisDocument.InvisiblePage_Example"
    'カスタムのボタンのアイコンを指定
    myVisioButton.FaceID = 7075

End Sub

利用用途

レイヤを追加し、各種設定をする

利用するツール

【Layers.Add メソッド】

ページ上の Layers オブジェクトに新しい Layer を追加します。Layers.Add(レイヤ名) でレイヤ名を指定します

【Layer.CellsC プロパティ】

シェイプシートの Layers セクション内の各セル値を Cell オブジェクトとして返すプロパティです。Layer.CellsC(セルのインデックス名) としてセルを指定します。サンプルコードを参照してください

サンプルコード

Public Sub AddLayer_Example()

    'Visio の Layer オブジェクトに設定を変更するレイヤを格納
    Dim myLayer As Visio.Layer
    Set myLayer = ThisDocument.Application.ActiveWindow.Page.Layers.Add("家具用のレイヤ")

    '表示の設定 1 = オン 0 = オフ
    myLayer.CellsC(visLayerVisible).FormulaU = "1"
    '印刷の設定 1 = オン 0 = オフ
    myLayer.CellsC(visLayerPrint).FormulaU = "1"
    'アクティブの設定 1 = オン 0 = オフ
    myLayer.CellsC(visLayerActive).FormulaU = "0"
    'ロックの設定 1 = オン 0 = オフ
    myLayer.CellsC(visLayerLock).FormulaU = "0"
    'スナップの設定 1 = オン 0 = オフ
    myLayer.CellsC(visLayerSnap).FormulaU = "1"
    '接着の設定 1 = オン 0 = オフ
    myLayer.CellsC(visLayerGlue).FormulaU = "1"
    '色の設定 色の ID か "RGB(46,109,65)" のように RGB で指定が可能
    myLater.CellsC(visLayerColor).FormulaU = "6"
    '透過性の設定 透過度を % で指定
    myLayer.CellsC(visLayerColorTrans).FormulaU = "0%"

End Sub

利用用途

線を描画し、外観を変える

利用するツール

【Page.Drawline メソッド】

始点と終点の X Y 座標を指定して、線を描画します。 Shape オブジェクトを返します。

【シェイプシート Line Format セクションのセル インデックス】

CellsSRC プロパティの列インデックスとして指定できます

サンプルコード

Public Sub DrawLine_Example()

    Dim myLine1 As Visio.Shape
    Dim myLine2 As Visio.Shape
    Dim myLine3 As Visio.Shape

    '一本目の線を引き、Shape オブジェクトを取得
    Set myLine1 = ThisDocument.Application.ActiveWindow.Page.DrawLine(2.165354, 7.283465, 8.464567, 7.283465)
    '二本目の線を引き、Shape オブジェクトを取得
    Set myLine2 = ThisDocument.Application.ActiveWindow.Page.DrawLine(4.92126, 4.330709, 4.92126, 8.267717)
    '三本目の線を引き、Shape オブジェクトを取得
    Set myLine3 = ThisDocument.Application.ActiveWindow.Page.DrawLine(2.362205, 5.314961, 5.11811, 9.055118)

    '一本目の線の太さを変更
    myLine1.CellsSRC(visSectionObject, visRowLine, visLineWeight).FormulaU = "4.08 pt"

    '二本目のパターンを変更
    myLine2.CellsSRC(visSectionObject, visRowLine, visLinePattern).FormulaU = "7"

    '三本目の始点と終点の形を変更
    myLine3.CellsSRC(visSectionObject, visRowLine, visLineBeginArrow).FormulaU = "5"
    myLine3.CellsSRC(visSectionObject, visRowLine, visLineEndArrow).FormulaU = "5"

End Sub

利用用途

図形にテキストを追加する

利用するツール

Text プロパティ (Shape オブジェクト)

図形にあるテキストを取得したり設定するためのプロパティです。テキストを指定します。

サンプルコード

Public Sub AddText_Example()
          '図形の Text プロパティにテキストを設定
     ThisDocument.Application.ActiveWindow.Page.Shapes.ItemFromID(1).Text = "びじ夫の仕事"
End Sub

利用用途

ある図形を別の図形に接着し、接続します

利用するツール

Cell.GlueTo メソッド

構文

Cell.GlueTo(CellObject)
     CellObject: 接着する図形の Cell オブジェクト

サンプルコード

Public Sub ConnectShape_Example()

     Dim vsoMaster As Visio.Master
     Dim vsoConnector As Visio.Shape
     Dim vsoShapeFrom As Visio.Shape
     Dim vsoShapeTo As Visio.Shape
     Dim vsoBeginX As Visio.Cell
     Dim vsoEndX As Visio.Cell

     '図面上の 2 つの図形、図形1 と図形2 をそれぞれ vsoShapeTo vsoShapeFrom として取得します (コードは省略しています)
     '基本フローチャート ステンシルを開いて取得
     Set vsoStencil =Application.Documents.OpenEx "basflo_m.vss", visOpenRO + visOpenDocked
     'ダイナミック コネクタを図面上にドロップ
     Set vsoMaster = vsoStencil.Masters.ItemU("Dynamic Connector")
     Set vsoConnector = ThisDocument.Application.ActiveWindow.Page.Drop(vsoMaster, 0, 0)

    'コネクタの始点を図形 1 の PinX に接続
     Set vsoBeginX = vsoConnector.CellsSRC(visSectionObject, visRowXForm1D, vis1DBeginX)
     vsoBeginX.GlueTo vsoShapeFrom.CellsSRC(visSectionObject, visRowXFormOut, visXFormPinX)

    'コネクタの終点を図形 2 の PinX に接続
     Set vsoEndX = vsoConnector.CellsSRC(visSectionObject, visRowXForm1D, vis1DEndX)
     vsoEndX.GlueTo vsoShapeTo.CellsSRC(visSectionObject, visRowXFormOut, visXFormPinX)

End Sub

利用用途

ある図形を別の図形に自動接続します

利用するツール

Shape.AutoConnect メソッド

構文

Shape.AutoConnect(ToShape, PlacementDir, Connector)
          ToShape: 接続先の図形オブジェクト
          PlacementDir: 接続方向
          Connector: コネクタの種類 (省略可能)

サンプルコード

Public Sub AutoConnectShape_Example()

     '最初の図形 (図面上の図形として Set するコードは省略しています)
     Dim vsoShapeFrom As Visio.Shape
     '2 つ目の図形
     Dim vsoShapeTo As Visio.Shape
     '最後の図形
     Dim vsoShapeLast As Visio.Shape

     '最初の図形から右方向にオートコネクト
     vsoShapeFrom.AutoConnect vsoShapeTo, visAutoConnectDirRight
     '2 つ目の図形から下方向にオートコネクト
     vsoShapeTo.AutoConnect vsoShapeLast, visAutoConnectDirDown

End Sub

利用用途

図面を保存する

利用するメソッド

Document.SaveAs メソッド: 図面を保存します
Document.SaveAsEx メソッド: 条件を指定して図面を保存します

構文

Document.SaveAs (FileName)
     FileName: 図面を指定するファイル名

docsObj.SaveAsEx (FileName, SaveFlags)
     FileName: 図面を指定するファイル名
       SaveFlags: ファイルの保存方法 。visSaveAsRO (読み取り専用として保存) 、visSaveAsWS (作業状態も保存) 、visSaveAsListInMRU (最後に利用したファイル一覧に追加して保存) が指定可能

サンプルコード

Public Sub SaveAsEx_Example()

     'SaveAsEx メソッドを使って、図面を
     '読み取り専用として新しく保存します。
     ThisDocument.SaveAsEx "びじおの仕事.vsd", visSaveAsRO

End Sub

利用用途

今使っている図面のパスを取得する

利用するツール

Document.Path プロパティ: 図面のある場所のパス。C:\VisioTest\sample.vsd を開いている場合、Path プロパティは C:\VisioTest\
Document.FullName プロパティ: ドライブやパスを含む図面の名前。C:\VisioTest\sample.vsd を開いている場合、FullName プロパティは C:\VisioTest\sample.vsd

サンプルコード

Public Sub Path_Example()
     '図面のある場所のパスを取得
     Debug.Print ThisDocument.Path
     '図面の名前をフルパスで取得
     Debug.Print ThisDocument.FullName
End Sub