ドキュメントのOpenとClose

Visio

"テスト.vsd" というファイルをあらかじめ作成しておいて、同じフォルダにある別のVisioファイルに以下のマクロを登録すると、Open、Closeができるようになる。



Option Explicit
Dim vis_doc As Visio.Document
Sub ドキュメントを開く()

    Dim vis_app As Visio.Application

    

    Set vis_app = Visio.Application

    Set vis_doc = vis_app.Documents.Open("テスト.vsd")

End Sub
Sub ドキュメントを閉じる()

    vis_doc.Close

End Sub