VBAでドキュメントを開いて保存する方法

Visioの起動と保存、Closeのやり方を知りたいのだ～

できるよ～簡単だから使ってみて～

Visioドキュメントを開いて保存、終了するコードです。
というかそもそも、保存できないと不便ですよね？

こちらのコードをみると、以下のやり方がわかります。
・新規ファイルの作成
・既存ファイルの起動
・上書き保存
・名前を付けて保存

保存についてはこちらもご参照下さい。

ファイルを開いて保存する
Sampleコード
実行結果

ファイルを開いて保存する

以下2種類の保存をするサンプルコードです。

①新規ファイルを作り、任意の名前を付けて保存する。
②既存のファイルを開いて、上書き保存する。

まず、test2.vsdxという空のファイルを作っておきます。

Sampleコード

こちらがコードです。

Sub test()
 
 Dim vsoDocument1 As Visio.Document
 Dim vsoDocument2 As Visio.Document
 Const TargetDir As String = "C:\Users\user\Documents\VBAサイト\記事\保存してみよう"
 Const Target1 As String = TargetDir & "\" & "test1.vsdx"
 Const Target2 As String = TargetDir & "\" & "test2.vsdx"
 
    '①新規のドキュメントを開きます。
    Set vsoDocument1 = Documents.Add("")
 
    '四角を描きます。
    Set Rect = vsoDocument1.Application.ActivePage.DrawRectangle(1, 9, 2, 8)

    vsoDocument1.SaveAs Target1
    vsoDocument1.Close
    
    '②既存のドキュメントを開きます。
    Set vsoDocument2 = Documents.Open(Target2)

    '丸を描きます。
    Set Ovl = vsoDocument2.Application.ActivePage.DrawOval(1, 7, 2, 6)

    vsoDocument2.Save
    vsoDocument2.Close
 
 
End Sub