オートメーション アドインの読み込み時に Excel が失敗する

問題を再現する手順

1. Visual Basic で新しい ActiveX DLL プロジェクトを開始します。

2. [プロジェクト] メニューの [Project1 プロパティ] をクリックします。 [プロジェクト名] を [TestAddIn] に変更し、[OK] をクリックします。

3. Class1 のコード モジュールに次のコードを追加します。

   Private Sub Class_Initialize()
       MsgBox "Class_Initialize"
   End Sub
   

4. ビルド TestAddIn.dll。

5. Excel で、新しいブックを開始します。

6. Microsoft Office Excel 2003 または Microsoft Excel 2002 では、次の手順に従います。

   1. [ ツール ] メニュー の [アドイン] をポイントし、[ オートメーション] をクリックします。

   2. 一覧で [ TestAddIn.Class1] をクリックし、[ OK] をクリックします。

   3. [アドイン] ダイアログ ボックス で 、[OK] をクリック します。

   Microsoft Office Excel 2007 で、次の手順に従います。
   

   1. [Microsoft Office] ボタンをクリックし、[Excel オプション] をクリック
      。

   2. [アドイン] タブ を クリックします。

   3. [ 管理 ] ボックスの一覧 で、[Excel アドイン] をクリックし、[ 移動] をクリックします。

   4. [アドイン] ダイアログ ボックス で 、[
      Automation] をクリックします。

   5. 一覧で [ TestAddin.Class1] をクリックし、[ OK] をクリックします。

   6. [OK] をクリックします。

7. 任意のセルに「=a」と入力します。 "Class_Initialize" というテキストが表示されたメッセージ ボックスが表示されます。

8. [OK] をクリックしてメッセージ ボックスを閉じます。 数秒後、Excel は失敗します。