Visioの起動、終了マクロ

既にVisioが起動しているのに、起動、終了させるマクロなんか必要無いのだが、一応マクロの基本説明も兼ねて、VisioからVisioを起動、終了させてみよう。

まずはVisioを起動して、新規ドキュメントを開いてから

• 「ツール」→「マクロ」→「マクロ」
• マクロ名に「起動」を記述し、作成ボタンを押す
• VBAエディタが起動するけどまだ何もせずに、もう一度Visioに戻って
• 同じ画面で今度は「終了」と記述して、作成ボタンを押します

VBAエディタに次のようなコードを記述します

Option Explicit
Dim obj As Visio.Application
Sub 起動()

    Set obj = CreateObject("Visio.Application")

End Sub
Sub 終了()

    obj.Quit

End Sub

その後またVisioに戻って、

「ツール」→「マクロ」→「Module1」→「起動」

とすると、もう一つVisioが起動し、

「ツール」→「マクロ」→「Module1」→「終了」

とすると、その起動したVisioが閉じられます。