Private Sub Document_DocumentOpened(ByVal doc As IVDocument)が実行されずに落ちます。  
上記プログラムを含むVisioファイルをVisio 2007で開くとVisioが落ちてしまいます。

環境はVisio 2013とVisio 2007の混在されているPCです。  
Visio 2013を起動すると以下のような画面が表示され一旦デフォルトで開くVisioがVisio2013に切り替わります。  
[![画像の説明をここに入力](https://i.stack.imgur.com/X7j03.png)](https://i.stack.imgur.com/X7j03.png)

次にVisio 2007を起動すると、上記ダイアログのVisio2007のものが表示されます。

ここまで行い、デフォルトのVisioが2007に戻ったところでVisioファイルを開こうとすると、Visioが開かなくなりました。  
また、ThisDocument内のイベント以外は動作します。  
たとえば、標準モジュール内にプロシージャを作成し、MsgBoxを表示させることはできます。

また、thisDocumentにイベントがなければVisioは2007で開くことができます。

いったんこうなるとVisioの再インストールでも治らなくなります。

何か、解決方法はないでしょうか。
CC BY-SA 4.0
2020-05-21T13:20:52.300
66844
2020-05-21T13:20:52.300
12388
question
visio
Visio 2007のThisDocument内のマクロが動かず落ちる。