文書番号: 213530 - 最終更新日: 2006年10月12日 - リビジョン: 4.2

[XL2000] マクロでメニュー コマンドを追加または削除しようとすると、エラーが発生する

対象製品
お知らせお使いのオペレーティング システムには適用しない情報が含まれている場合があります。
この記事は、以前は次の ID で公開されていました: JP213530
すべて展開する | すべて折りたたむ

現象

メニュー コマンドを追加または削除する Microsoft Visual Basic for Applications のマクロを実行すると、次のエラー メッセージが表示されることがあります。
実行時エラー '1004': アプリケーション定義またはオブジェクト定義のエラーです。
先頭へ戻る

原因

この問題は、メニュー コマンドを追加または削除するマクロ コマンドで、現在のバージョンの Microsoft Excel では削除または変更されているメニュー コマンドを指定した場合に発生します。この動作は、Microsoft Excel の仕様によるものです。

Excel で変更されているメニュー コマンドの一覧については、この資料の「詳細」を参照してください。
先頭へ戻る

回避策

マイクロソフトは、この情報をプログラミング言語の使用方法の一例として提供するだけであり、市場性および特定目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。この資料は、例示されているプログラミング言語やプロシージャの作成およびデバッグに使用するツールについて理解されているユーザーを対象としています。Microsoft Support 担当者は、特定のプロシージャの機能についての問い合わせにはお答えできますが、ユーザー固有の目的に合わせた機能の追加、プロシージャの作成などの内容変更は行っておりません。
この現象を回避するには、次のいずれかの方法を実行します。
  • マクロを Excel 2000 だけで使用する場合は、マクロ内の以前のメニュー コマンド名を新しいメニュー コマンド名に置き換えます。

    または
  • マクロを Excel 5.0、7.0、および Excel 2000 で使用する場合はマクロを変更します。たとえば、次のようなマクロを作成したとします。 

          Sub AddTest1()

          MenuBars(xlWorksheet).Menus("表示").MenuItems.Add _
              Caption:="Test", Before:="ツールバー..."

      End Sub
このマクロは、Excel 97 より前のバージョンでは正しく動作しますが、Excel 2000 では動作しません。これは、[ツールバー…] コマンドが Excel 97 以降では [ツールバー] (省略記号なし) という名前に変更されたためです。

次のマクロは、すべてのバージョンの Excel で正しく動作します。 
      Sub AddTest2()

          'Test whether you use Microsoft Excel 5.0 or 7.0.
          If Val(Application.Version) < 8 Then

              'Set the value of the variable equal to the correct menu
              'command name for Microsoft Excel 5.0 and 7.0.
              xBefore = "ツールバー..."

          'Otherwise, assume you use Microsoft Excel 97 (version 8.0)
          'or Microsoft Excel 2000 (version 9.0).
          ElseIf Val(Application.Version) >= 8 Then

              'Set the value of the variable equal to the correct menu
              'command name for Microsoft Excel 97
              'and Microsoft Excel 2000.
              xBefore = "ツールバー"

          End If

          'Add the new command. The command works correctly because the
          'menu command name in the Before argument (the variable xBefore)
          'is correct.
          MenuBars(xlWorksheet).Menus("表示").MenuItems.Add _
              Caption:="Test", Before:=xBefore

      End Sub
先頭へ戻る

詳細

Excel の Visual Basic マクロでは、次のようなコード行を使用して、メニューに新しいメニュー コマンドを追加できます。 
   MenuBars(xlWorksheet).Menus("表示").MenuItems.Add Caption:="Test", _
       Before:="ツールバー..."

このコード行では、[表示] メニューの [ツールバー…] メニュー コマンドの上に、新しいメニュー コマンド [Test] が追加されます。

また、次のようなコード行を使用すると、メニュー コマンドを削除できます。 
   MenuBars(xlWorksheet).Menus("表示").MenuItems("ツールバー...").Delete

各コード行では、メニュー コマンド [ツールバー…] が正確な名前で参照されています。Excel 97 以降では、一部のメニュー コマンドの名前が変更されています。マクロ コードでこれらのメニュー項目を名前で参照する場合は、このような名前の変更によって問題が生じる場合があります。

上記の 2 つのコード行は、Excel 97 より前のバージョンでは正しく動作します。しかし、メニュー コマンド [ツールバー…] の名前が [ツールバー] (省略記号なし) に変更されているため、これらのコード行は Excel 2000 では正しく動作しません。

Excel 97 以降では、次のメニュー コマンドが変更されています。
                  Microsoft Excel 5.0、7.0   Microsoft Excel 97、2000
   メニュー         メニュー コマンド               メニュー コマンド
   ------------------------------------------------------------------

   表示             ツール バー...              ツール バー
   挿入              グラフ                        グラフ...
   挿入             メモ...                    コメント
   データ            ピボットテーブル...          ピボットテーブル レポート...
                                                   (Excel 97 の場合)
                                          または
                                                  ピボットテーブルと
                                                     ピボットグラフ レポート
                                                         (Excel 2000 の場合)

   シート見出し     名前の変更...               名前の変更
   ショートカット 
   メニュー*

* このメニューは xlWorkbookTab のショートカット メニューです。

先頭へ戻る
この資料は以下の製品について記述したものです。
  • Microsoft Excel 2000 Standard Edition
先頭へ戻る
キーワード:?
kbdtacode kberrmsg kbprb KB213530
先頭へ戻る
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"