"テスト.vsd" というファイルをあらかじめ作成しておいて、同じフォルダにある別のVisioファイルに以下のマクロを登録すると、Open、Closeができるようになる。 Option ExplicitDim vis_doc As Visio.DocumentSub ドキュメントを開く() Dim vis_app As Visio…