22、Excel VBA：自定义菜单与工作表函数全攻略

Excel VBA：自定义菜单与工作表函数全攻略

1. 自定义快捷菜单

1.1 快捷菜单的定制方式

在Excel中，无法使用“自定义”对话框来移除或修改快捷菜单，唯一的办法是使用VBA。当右键单击对象时，会弹出快捷菜单，Excel中有大量这样的快捷菜单，几乎可以对任何对象右键单击来获取。若要操作快捷菜单，需要了解其标题（Caption）或索引（Index）。虽然帮助系统中没有这些信息，但可以使用以下代码生成所有快捷菜单及其索引和标题的列表：

Sub ListShortCutMenus()
    Dim Row As Long
    Dim Col As Long
    Dim cbar As CommandBar
    Row = 1
    For Each cbar In CommandBars
        If cbar.Type = msoBarTypePopup Then
            Cells(Row, 1) = cbar.Index
            Cells(Row, 2) = cbar.Name
            For Col = 1 To cbar.Controls.Count
                Cells(Row, Col + 2) = cbar.Controls(col).Caption
            Next Col
            Row = Row + 1
        End If
    Next cbar
End Sub

修改快捷菜单时需谨慎，和普通菜单一样，快捷菜单的更改会