Excel 2013 で CommandBarButton のボタン コントロールが反応しない

現象
Microsoft Excel 2013 で、CommandBarButton オブジェクトでコマンド バーのボタンを作成する実装を行ったアドイン ファイル (.xlsm、.xla) を登録します。
Excel 2013 を起動すると、登録したアドインが読み込まれ、[アドイン] タブ内に CommandBarButton オブジェクトで作成したボタンが表示されます。
CommandBarButton オブジェクトで作成したボタン コントロールに Tag プロパティを設定していない場合、表示されたボタン コントロールをクリックしても、ボタン コントロールに登録したイベントが実行されず、無反応になる現象が発生します。
回避策
CommandBarButton オブジェクトで作成したボタン コントロールに Tag プロパティを設定します。
状況
マイクロソフトでは、この問題について現在調査中です。詳細については、わかりしだいこの資料に掲載する予定です。
詳細
問題の再現手順

  1. Excel 2013 で空白のブックを作成します
  2. [開発] タブの [Visual Basic Editor] をクリックします
  3. Visual Basic Editor で、"Microsoft Excel Objects" にある "ThisWorkbook" モジュールに、以下のコードを追加します
    Option ExplicitDim MyEvtClass As New Class1Private Sub Workbook_Open()    Dim objCmdBarCtl As CommandBarControl    Dim objCmdBarBtn As CommandBarButton    Set objCmdBarCtl = Application.CommandBars.ActiveMenuBar.Controls.Add(msoControlPopup, , , , True)    objCmdBarCtl.Caption = "SampleAAA"    Set objCmdBarBtn = objCmdBarCtl.Controls.Add(msoControlButton, , , , True)    objCmdBarBtn.Caption = "SampleZZZ"      ' objCmdBarBtn.Tag = "abc" ' Workaround     Set MyEvtClass.objCmdBarBtn = objCmdBarBtnEnd Sub
  4. [挿入] メニューから [クラス モジュール] をクリックします
  5. "Class1" モジュールに、次のコードを追加します

    Option ExplicitPublic WithEvents objCmdBarBtn As CommandBarButtonPrivate Sub objCmdBarBtn_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)    MsgBox "Click SampleZZZ"End Sub
  6. Visual Basic Editor の [ファイル] メニューから [終了して Microsoft Excel へ戻る] をクリックします
  7. Excel の [ファイル] タブの [名前を付けて保存] をクリックし、以下の設定を行い、Excel アドイン ファイルとして、任意の場所に保存します

    ファイルの種類 : Excel アドイン (*.xlam)、もしくは、Excel 97-2003 アドイン (*.xla) 
  8. [開発] タブの [アドイン] ボタンをクリックし、[参照] ボタンから、手順 7 で保存した Excel アドイン ファイルを選択し、有効なアドインとして設定します
  9. Excel 2013 を終了します
  10. Excel 2013 を再起動し、空白のブックを表示します
  11. [アドイン] タブに追加された "SampleAAA" メニューから "SampleZZZ" ボタンをクリックします

結果
CommandBarButton の "SampleZZZ" ボタンをクリックしても無反応です。
注意 : これは、マイクロソフトのサポート組織内で直接作成された "緊急公開" の資料です。 この資料には、確認中の問題に関する現状ベースの情報が記載されています。 情報提供のスピードを優先するため、資料には誤植が含まれる可能性があり、予告なしに随時改定される場合があります。 その他の考慮事項については、使用条件を参照してください。
プロパティ

文書番号:2922197 - 最終更新日: 06/24/2015 20:50:00 - リビジョン: 3.0

Microsoft Excel 2013

  • kbtshoot kbbug kbexpertiseinter KB2922197
フィードバック