すべてのバージョンの Microsoft Excel でコンテキストメニューをカスタマイズする

[アーティクル]
06/24/2015

概要: Excel 97 ～ Excel 2010 でコンテキストメニューをカスタマイズする方法について説明します。

公開日: 2010 年 11 月

Microsoft Office でのコンテキストメニューの概要
Excel でのコンテキストメニューの概要
Excel でコンテキストメニューをカスタマイズする
VBA コードを使用してコントロールをセルのコンテキストメニューに追加する
リボン拡張機能を使用してコントロールをセルのコンテキストメニューに追加する
VBA コードまたはリボン拡張機能を使用してセルのコンテキストメニューに動的メニューを追加する
コンテキストメニューのヒントとテクニック
まとめ
その他の技術情報

Microsoft Office でのコンテキストメニューの概要

コンテキストメニュー (ショートカットメニューとも呼ばれます) は、いくつかのユーザー操作 (通常はマウスの右クリック操作) の後に表示されるメニューです。Microsoft Office では、コンテキストメニューはアプリケーションの現在の状態やコンテキストで利用できる、限定された選択肢のセットを提供します。通常、利用可能な選択肢は、セルや列など、選択したオブジェクトに関連があるアクションです。

Excel でのコンテキストメニューの概要

Microsoft Excel では、ユーザーが最も一般的に使用するコンテキストメニューは、Cell コンテキストメニューです。これは、ワークシートの 1 つのセルや連続するセルを右クリックしたときに表示されるメニューです。しかし、カスタマイズできるコンテキストメニューはほかにも多数あります。たとえば、行や列のヘッダーを右クリックしたときに表示される Row や Column のコンテキストメニューなどです。図 1 に、Microsoft Excel 2010 の Cell コンテキストメニューを示します。

図 1. Excel 2010 のセルのコンテキストメニュー

Excel 2010 のセルのコンテキストメニュー

注意

メニューの下部に表示されている NameX セクションは、この記事で後述する Microsoft アドインによって作成されたものです。

Excel でコンテキストメニューをカスタマイズする

Excel 97 ～ Excel 2007 でコンテキストメニューをカスタマイズする唯一の方法は、Microsoft Visual Basic for Applications (VBA) コードを使用することです。この例はすぐに紹介します。しかし、Excel 2010 では、Microsoft Office Fluent ユーザーインターフェイスの他のコンポーネントをカスタマイズしてリボンと Backstage ビューを含めるときに使用するのと同じリボン機能拡張 (RibbonX) モデルを使用して、コンテキストメニューを変更することができます。

Excel 2010 で RibbonX を使用してコンテキストメニューをカスタマイズする利点の 1 つは、VBA では追加できないコントロールを追加できることです。次の一覧に、コンテキストメニューに追加できるコントロールを示します。

button
checkBox
control
dynamicMenu
gallery
menu
menuSeparator
splitButton
toggleButton

ただし、繰り返しになりますが、Excel 2010 でコンテキストメニューをカスタマイズする場合にのみ RibbonX を使用できます。他のバージョンのMicrosoft Excel では、VBA と CommandBars オブジェクトを使用する必要があります。

VBA コードを使用してコントロールをセルのコンテキストメニューに追加する

次の例では、Cell コンテキストメニューの上にカスタムボタン、組み込みボタン ([Save])、およびサブメニューを追加します。

注意

Microsoft Excel には 2 つの Cell コンテキストメニューがあります。1 つは標準のメニュー、2 つ目は改ページプレビューモードのときに表示されるメニューです。改ページプレビューモードでは、各ページに表示されるデータを示し、印刷領域と改ページをすばやく調整できます。改ページプレビューモードをアクティブ化するには、リボンで [表示] をクリックして、[改ページプレビュー] をクリックします。2 つ目の種類のメニューを変更する場合は、次のステートメントを使用します。

Set ContextMenu = Application.CommandBars(Application.CommandBars("Cell").Index + 3)

この情報は、Row および Column のコンテキストメニューにも該当します。

Cell コンテキストメニューをカスタマイズするには、ブックの VBA プロジェクトに一般的なモジュールを追加します。Alt + F11 を押して Visual Basic エディター (VBE) を開き、[挿入] をクリックしてから、[モジュール] をクリックします。モジュールに次の 6 つのサブルーチンを貼り付けるか入力します。最初のマクロは、コントロールを Cell コンテキストメニューに追加します。2 つ目のマクロは、コントロールを Cell コンテキストメニューから削除します。どのようにタグがコントロールに追加され、コントロールを削除するのに使用されているのか注意してください。ほかの 4 つのマクロは、サブメニューのボタンまたは 3 つのオプションのいずれかをクリックしたとき実行されます。この例では、最後の 4 つのマクロは、セルのテキストの大文字と小文字を変更します。

Sub AddToCellMenu()
    Dim ContextMenu As CommandBar
    Dim MySubMenu As CommandBarControl

    ' Delete the controls first to avoid duplicates.
    Call DeleteFromCellMenu

    ' Set ContextMenu to the Cell context menu.
    Set ContextMenu = Application.CommandBars("Cell")

    ' Add one built-in button(Save = 3) to the Cell context menu.
    ContextMenu.Controls.Add Type:=msoControlButton, ID:=3, before:=1

    ' Add one custom button to the Cell context menu.
    With ContextMenu.Controls.Add(Type:=msoControlButton, before:=2)
        .OnAction = "'" & ThisWorkbook.Name & "'!" & "ToggleCaseMacro"
        .FaceId = 59
        .Caption = "Toggle Case Upper/Lower/Proper"
        .Tag = "My_Cell_Control_Tag"
    End With

    ' Add a custom submenu with three buttons.
    Set MySubMenu = ContextMenu.Controls.Add(Type:=msoControlPopup, before:=3)

    With MySubMenu
        .Caption = "Case Menu"
        .Tag = "My_Cell_Control_Tag"

        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "UpperMacro"
            .FaceId = 100
            .Caption = "Upper Case"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "LowerMacro"
            .FaceId = 91
            .Caption = "Lower Case"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "'" & ThisWorkbook.Name & "'!" & "ProperMacro"
            .FaceId = 95
            .Caption = "Proper Case"
        End With
    End With

    ' Add a separator to the Cell context menu.
    ContextMenu.Controls(4).BeginGroup = True
End Sub

Sub DeleteFromCellMenu()
    Dim ContextMenu As CommandBar
    Dim ctrl As CommandBarControl

    ' Set ContextMenu to the Cell context menu.
    Set ContextMenu = Application.CommandBars("Cell")

    ' Delete the custom controls with the Tag : My_Cell_Control_Tag.
    For Each ctrl In ContextMenu.Controls
        If ctrl.Tag = "My_Cell_Control_Tag" Then
            ctrl.Delete
        End If
    Next ctrl

    ' Delete the custom built-in Save button.
    On Error Resume Next
    ContextMenu.FindControl(ID:=3).Delete
    On Error GoTo 0
End Sub

Sub ToggleCaseMacro()
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    On Error GoTo 0
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange.Cells
        Select Case cell.Value
        Case UCase(cell.Value): cell.Value = LCase(cell.Value)
        Case LCase(cell.Value): cell.Value = StrConv(cell.Value, vbProperCase)
        Case Else: cell.Value = UCase(cell.Value)
        End Select
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

Sub UpperMacro()
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    On Error GoTo 0
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange.Cells
        cell.Value = UCase(cell.Value)
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

Sub LowerMacro()
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    On Error GoTo 0
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange.Cells
        cell.Value = LCase(cell.Value)
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

Sub ProperMacro()
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    On Error GoTo 0
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange.Cells
        cell.Value = StrConv(cell.Value, vbProperCase)
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

次の 2 つのイベントプロシージャをブックの ThisWorkbook モジュールにコピーします。これらのイベントは、ブックを開くかアクティブ化したときに Cell コンテキストメニューに自動的に追加され、ブックを閉じるか非アクティブ化したときに削除されます。

Private Sub Workbook_Activate()
    Call AddToCellMenu
End Sub

Private Sub Workbook_Deactivate()
    Call DeleteFromCellMenu
End Sub

次に、ブックを保存し、閉じてから再度開き、Cell コンテキストメニューの変更内容を確認します。Cell コンテキストメニューは、図 2 に示すメニューのようになります。

図 2. カスタマイズされた Cell のコンテキストメニュー

カスタマイズされたセルのコンテキストメニュー

リボン拡張機能を使用してコントロールをセルのコンテキストメニューに追加する

次の例では、上で説明した例と同じボタンとサブメニューを作成します。今度は、Excel 2010 で RibbonX を使用してコントロールを作成します。このオプションは、Excel 97 ～ Excel 2007 では利用できません。

注意

Custom UI Editor と RibbonX を使用した Microsoft Office Fluent UI のカスタマイズの詳細については、Ron のリボンの Web サイトを参照してください。

Excel 2010 の改ページプレビューモードの Cell コンテキストメニューは、通常の Cell コンテキストメニューとは異なる ID を持っています。この記事で後述する Microsoft アドインを使用して、これやその他のコンテキストメニューの ID を調べることができます。

コンテキストメニューにコントロールを追加するために XML を追加するには

Excel 2010 で新しいブックを開き、マクロ有効ブック (.xlsm) として保存します。
ブックを閉じます。
Custom UI Editor でブックを開き (詳細は前述の注を参照)、[挿入] をクリックして、[Office 2010 のカスタム UI のパーツ] をクリックします。

[Office 2010 のカスタム UI のパーツ] ウィンドウに次の XML を挿入します。

<customUI xmlns="https://schemas.microsoft.com/office/2009/07/customui">
   <contextMenus>
      <contextMenu idMso="ContextMenuCell">
         <button idMso="FileSave" insertBeforeMso="Cut" />
         <button id="MyButton" label="Toggle Case Upper/Lower/Proper"
             insertBeforeMso="Cut" 
             onAction="ToggleCaseMacro" 
             imageMso="HappyFace"/>
         <menu id="MySubMenu" label="Case Menu" insertBeforeMso="Cut"  >
            <button id="Menu1Button1" label="Upper Case" 
               imageMso="U" onAction="UpperMacro"/>
            <button id="Menu1Button2" label="Lower Case" 
               imageMso="L" onAction="LowerMacro"/>
            <button id="Menu1Button3" label="Proper Case" 
               imageMso="P" onAction="ProperMacro"/>
         </menu>
        <menuSeparator id="MySeparator" insertBeforeMso="Cut" />
      </contextMenu>
   </contextMenus>
</customUI>

保存してエディターを閉じます。
Excel 2010 でブックを開きます。

VBE で次の 4 つのマクロを一般的なモジュールにコピーするか入力し、ブックを保存します。

Sub ToggleCaseMacro(control As IRibbonControl)
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange
        Select Case cell.Value
        Case UCase(cell.Value): cell.Value = LCase(cell.Value)
        Case LCase(cell.Value): cell.Value = StrConv(cell.Value, vbProperCase)
        Case Else: cell.Value = UCase(cell.Value)
        End Select
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

Sub UpperMacro(control As IRibbonControl)
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange
        cell.Value = UCase(cell.Value)
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

Sub LowerMacro(control As IRibbonControl)
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange
        cell.Value = LCase(cell.Value)
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

Sub ProperMacro(control As IRibbonControl)
    Dim CaseRange As Range
    Dim CalcMode As Long
    Dim cell As Range

    On Error Resume Next
    Set CaseRange = Intersect(Selection, _
        Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
    If CaseRange Is Nothing Then Exit Sub

    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    For Each cell In CaseRange
        cell.Value = StrConv(cell.Value, vbProperCase)
    Next cell

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With
End Sub

ブックでテキストを含むセルを右クリックして、Cell コンテキストメニューが変更されたことを確認します。
コンテキストメニューの上部にある大文字と小文字を変更するオプションを選択し、セルのテキストにどのように影響するのか確認します。

注意

ブックを閉じると、追加したすべてのコントロールが Cell コンテキストメニューから削除されます。ただし、現在のブックで別のブックを開くと、以前 Cell に追加した組み込みの [保存] ボタンは削除されません。これは、組み込みコントロールをコンテキストメニューに追加するときの問題です。これが問題になる場合は、組み込みコントロールの代わりに、組み込みの [保存] コマンドを実行するマクロを呼び出すカスタムボタンを挿入できます。

組み込みコマンドを使用するカスタムボタンを追加するには、ステートメント <button idMso="FileSave" insertBeforeMso="Cut" /> をステートメント <button id="DuplicateBuiltInButton1" label="Save" insertBeforeMso="Cut" onAction="BuiltInSaveCommand" imageMso="FileSave"/> で置き換えます。次に、VBE で、onAction 属性によって呼び出される、次のマクロを追加します。

Sub BuiltInSaveCommand(control As IRibbonControl)
    CommandBars.ExecuteMso "FileSave"
End Sub

追加で ActiveWorkbook.Save メソッドを使用することもできます。しかし、ExecuteMso メソッドを使用することで、Microsoft Office Fluent UI であらゆる組み込みコントロールを実行することができます。

VBA コードまたはリボン拡張機能を使用してセルのコンテキストメニューに動的メニューを追加する

動的メニューは、実行時にメニューを作成するコールバックプロシージャを指します。dynamicMenu コントロールには、GetContent コールバックプロシージャを指す getContent 属性が含まれます。

以下は、Cell コンテキストメニューに動的メニューを作成する RibbonX XML です。

<customUI xmlns="https://schemas.microsoft.com/office/2009/07/customui">
   <contextMenus>
      <contextMenu idMso="ContextMenuCell">
         <dynamicMenu id="MyDynamicMenu" 
            label= "My Dynamic Menu" imageMso="HappyFace" 
            getContent="GetContent" insertBeforeMso="Cut"/>
      </contextMenu>
   </contextMenus>
</customUI>

たとえば、次の VBA コードは、2 つのボタンを持つ動的メニューを実行時に作成します。つまり、コンテキストメニューのメニューコントロールがクリックされるまで、これは作成されません。

Sub GetContent(control As IRibbonControl, ByRef returnedVal)
    Dim xml As String

    xml = "<menu https://schemas.microsoft.com/office/2009/07/customui"">" & _
          "<button id=""but1"" imageMso=""Help"" label=""Help"" onAction=""HelpMacro""/>" & _
          "<button id=""but2"" imageMso=""FindDialog"" label=""Find"" onAction=""FindMacro""/>" & _
          "</menu>"

    returnedVal = xml
End Sub

Sub HelpMacro(control As IRibbonControl)
    MsgBox "Help macro"
End Sub

Sub FindMacro(control As IRibbonControl)
    MsgBox "Find macro"
End Sub

ユーザー名、Excel で使用する地域の言語、またはアクティブなセルの値 (式、空、数値、テキスト) の値に基づいて Cell コンテキストメニューに動的メニューを追加する 3 つのサンプルブックをダウンロードできます。関連するブックの例に関するすべての情報の調査と、3 つのブックのダウンロードを、Ron の Web サイトから行えます。

コンテキストメニューのヒントとテクニック

このセクションでは、この記事で示したコードを変更して、プロシージャをより柔軟にする方法を示します。

この記事の冒頭で示した VBA の例で、ブックの Activate および Deactivate イベントを使用してメニューのコントロールを作成および削除するためのマクロを呼び出し、Cell コンテキストメニューを変更する方法を確認しました。

次の例では、Activate イベントを変更して、ユーザーごとに別のメニューを作成し、ユーザーごとに異なるカスタムコントロールのセットを持つメニューを作成できます。

Private Sub Workbook_Activate()
    Dim sUserName As String
    sUserName = Application.UserName

    Select Case sUserName
    Case "Ron de Bruin": Call AddToCellMenu
    Case "Nancy Davolio": Call AddToCellMenu2
    Case Else: Call AddToCellMenu3
    End Select
End Sub

別の例として、Activate の Excel で地域の言語をチェックして、ユーザーの言語でコンテキストメニューのメニューキャプションを作成できます。次の例では、オランダ語またはドイツ語のユーザーがブックを開くと、ユーザーのコンピューターの地域の言語の設定に応じて、別のマクロが呼び出されます。

Private Sub Workbook_Activate()
    Dim LangID As Long
    LangID = Application.International(xlCountryCode)

    Select Case LangID
    Case 31: Call AddToCellMenuInDutch
    Case 49: Call AddToCellMenuinGerman
    Case Else: Call AddToCellMenu
    End Select
End Sub

注意

各国語の問題の詳細については、Ron de Bruin の Web サイトの Excel の各国語の問題に関する Web ページを参照してください。

次の VBA ステートメントは、Excel 97 ～ Excel 2010 の Cell コンテキストメニューでコメント [挿入] のコントロールを有効または無効にする方法を示しています。 Application.CommandBars("Cell").FindControl(ID:=2031).Enabled = False

注意

この記事の最後で説明するアドインは、コンテキストメニューの各コントロールの ID を検索する方法を示しています。

また、次のようなマクロを使用して、キャプションに ID を追加することもできます。Cell コンテキストメニューは、すべてのバージョンの Excel で完全に同じではないことに注意してください。

Sub Add_ID_To_ContextMenu_Caption()
' Add the Id to the caption of the context menu controls.
    Dim ctl As CommandBarControl
    For Each ctl In Application.CommandBars("Cell").Controls
        On Error Resume Next
        ctl.Caption = ctl.ID & " ::: " & ctl.Caption
        On Error GoTo 0
    Next ctl
End Sub

Sub Reset_ContextMenu()
' Remove the Id of the caption of the context menu controls.
    Dim ctl As CommandBarControl
    Dim myPos As Long
    For Each ctl In Application.CommandBars("Cell").Controls
        myPos = InStr(1, ctl.Caption, " ::: ", vbTextCompare)
        If myPos > 0 Then
            ctl.Caption = Mid(ctl.Caption, myPos + 4)
        End If
    Next ctl
End Sub

Sub Reset_ContextMenu_To_Factory_Defaults()
    Application.CommandBars("Cell").Reset
End Sub

前述の Activate および Deactivate イベントを使用して、コントロールを無効および有効にできます。

Cell コンテキストメニューで RibbonX を使用して [削除] コントロールを無効にするには、この記事の「リボン拡張機能を使用してコントロールをセルのコンテキストメニューに追加する」セクションで示した XML のステートメント contextMenu に <button idMso="CellsDelete" enabled="false" /> を追加します。

このステートメントでわかるように、コンテキストメニューのコントロールを無効にするには、コントロールの ID (idMso) を知っている必要があります。ただし、この情報を特定のコンテキストメニューのすべてのコントロールで入手できるわけではないため、これが問題になることがあります。たとえば、これは Cell、 Row、およびColumn コンテキストメニューに当てはまります。一見すると、RibbonX でサポートされるコントロール ID のリストが存在しないように思えます。前のセクションの説明と同じように、VBA コードを使用して、特定のコントロールを無効にすることができます。

では、変更するコンテキストメニューの名前をどのように調べたらよいでしょうか。次のマクロは、各コンテキストメニューの下部に、メニュー名を持つボタンを追加します。Excel 2007 または Excel 2010 で実行する場合は、各コンテキストメニューの名前を表示することはできません。たとえば、Excel 2007 または Excel 2010 で図形を右クリックしても、メニュー名は表示されません。このため、Excel 2007 または Excel 2010 で VBA を使用してこれらのメニューを変更することはできません。

Sub Add_Name_To_Contextmenus()
    Dim Cbar As CommandBar
    For Each Cbar In Application.CommandBars
        With Cbar
            If .Type = msoBarTypePopup Then
                On Error Resume Next
                With .Controls.Add(Type:=msoControlButton)
                    .Caption = "Name for VBA = " & Cbar.Name
                    .Tag = "NameButtonInContextMenu"
                End With
                On Error GoTo 0
            End If
        End With
    Next
End Sub

Sub Delete_Name_From_Contextmenus()
    Dim Cbar As CommandBar
    Dim ctrl As CommandBarControl

    For Each Cbar In Application.CommandBars
        With Cbar
            If .Type = msoBarTypePopup Then
                For Each ctrl In .Controls
                    If ctrl.Tag = "NameButtonInContextMenu" Then
                        ctrl.Delete
                    End If
                Next ctrl
            End If
        End With
    Next
End Sub

VBA を使用してコンテキストメニューを変更するときには、ほぼすべてのコンテキストメニューの各コントロールのコントロール ID とコントロール画像 FaceIds を示した、以下のファイルへのリンクを使用します。

Jim Rech の BtnFace アドインを使用して、次の Web ページですべてのコントロールの画像 FaceId を検索できます。
コントロール ID とコントロール画像 ID を検索するには、Ole P. Erlandsen の次の Web ページにアクセスしてください。
John Walkenbach の Web ページにアクセスして、すべてのコントロール画像の ID を調べてください。

RibbonX を使用してコンテキストメニューを変更する場合は、ほとんどすべてのコンテキストメニューの各コントロールの idMso の値や imageMso 値を示した、以下のファイルへのリンクを使用してください。

http://www.rondebruin.nl/ribbon.htm#images

Microsoft COM アドインを使用して、Microsoft Office 2010 の各コンテキストメニューの名前を調べます。これは、コンテキストメニューの終わりにボタンを追加します。ボタンにより、ほとんどのコンテキストメニューの名前を検索できます。

まとめ

この記事では、次のポイントについて説明しています。

Excel 97 ～ Excel 2003 では VBA コードを使用してすべてのコンテキストメニューにコントロールを追加できますが (ただしこれはすべてのシナリオでテストされているわけではありません) 、RibbonX を使用してコンテキストメニューを変更することはできません。
Excel 2007 では、VBA コードを使用してほとんどすべてのコンテキストメニューにコントロールを追加できます。ただし、VBA を使用して Shapes や Picture などのいくつかのコンテキストメニューを変更することはできません。また、RibbonX を使用してコンテキストメニューを変更することはできません。
Excel 2010 では、VBA コードを使用してほとんどすべてのコンテキストメニューにコントロールを追加できます。VBA を使用したいくつかのコンテキストメニューの変更には、Excel 2007 と同じ制限があります。また、RibbonX を使用してすべてのコンテキストメニューにボタンとメニューを追加できますが、コントロールを無効にする場合や再利用する場合は、正しい ID (idMso) が見つからない可能性があります。

その他の技術情報

この記事で説明する主題について、以下の場所で詳細を確認できます。

すべてのバージョンの Microsoft Excel でコンテキスト メニューをカスタマイズする

Microsoft Office でのコンテキスト メニューの概要

Excel でのコンテキスト メニューの概要

Excel でコンテキスト メニューをカスタマイズする

VBA コードを使用してコントロールをセルのコンテキスト メニューに追加する

リボン拡張機能を使用してコントロールをセルのコンテキスト メニューに追加する

コンテキスト メニューにコントロールを追加するために XML を追加するには

VBA コードまたはリボン拡張機能を使用してセルのコンテキスト メニューに動的メニューを追加する

コンテキスト メニューのヒントとテクニック

まとめ