Private Sub Document_DocumentOpened(ByVal doc As IVDocument)が実行されずに落ちます。
上記プログラムを含むVisioファイルをVisio 2007で開くとVisioが落ちてしまいます。
環境はVisio 2013とVisio 2007の混在されているPCです。
Visio 2013を起動すると以下のような画面が表示され一旦デフォルトで開くVisioがVisio2013に切り替わります。
次にVisio 2007を起動すると、上記ダイアログのVisio2007のものが表示されます。
ここまで行い、デフォルトのVisioが2007に戻ったところでVisioファイルを開こうとすると、Visioが開かなくなりました。
また、ThisDocument内のイベント以外は動作します。
たとえば、標準モジュール内にプロシージャを作成し、MsgBoxを表示させることはできます。
また、thisDocumentにイベントがなければVisioは2007で開くことができます。
いったんこうなるとVisioの再インストールでも治らなくなります。
何か、解決方法はないでしょうか。