如何为Excel右键菜单自定义项添加图标（基于VBA代码）

方法一：使用Shell32.dll中的系统图标 #

Shell32.dll内置大量系统图标，可通过指定图标索引直接调用。修改你的Workbook_Open代码，补充图标参数即可：

Private Sub Workbook_Open()
    Dim cmdBarCtrl As CommandBarControl
    ' 先清理已存在的同名菜单项，避免重复添加
    On Error Resume Next
    Application.ShortcutMenus(xlWorksheetCell).MenuItems("Open document").Delete
    On Error GoTo 0
    
    ' 添加带系统图标的菜单项
    Set cmdBarCtrl = Application.ShortcutMenus(xlWorksheetCell).MenuItems.Add( _
        Text:="Open document", _
        OnAction:="OpenDocument", _
        Before:=1, _
        Icon:=LoadPicture("shell32.dll, 10") ' 10为图标索引，可按需替换
    )
End Sub

Sub OpenDocument()
    ' 你的业务代码
    MsgBox "打开文档功能已触发"
End Sub

• 说明：Shell32.dll默认路径为C:\Windows\System32\shell32.dll，直接写文件名系统会自动查找；
• 图标索引可通过Resource Hacker等工具查看，比如10对应文件夹图标、12对应Word文档图标，可根据需求替换索引值。

方法二：使用独立图片文件（如.ico/.bmp） #

若需自定义图标，可使用本地图片文件，建议放在Excel文件同目录下以避免路径问题：

Private Sub Workbook_Open()
    Dim cmdBarCtrl As CommandBarControl
    Dim imgPath As String
    
    ' 清理旧菜单项
    On Error Resume Next
    Application.ShortcutMenus(xlWorksheetCell).MenuItems("Open document").Delete
    On Error GoTo 0
    
    ' 设置图标文件路径（示例：同目录下的open_icon.ico）
    imgPath = ThisWorkbook.Path & "\open_icon.ico"
    
    ' 检查文件是否存在，存在则添加带图标菜单项，否则添加无图标项
    If Dir(imgPath) <> "" Then
        Set cmdBarCtrl = Application.ShortcutMenus(xlWorksheetCell).MenuItems.Add( _
            Text:="Open document", _
            OnAction:="OpenDocument", _
            Before:=1, _
            Icon:=LoadPicture(imgPath)
        )
    Else
        Set cmdBarCtrl = Application.ShortcutMenus(xlWorksheetCell).MenuItems.Add( _
            Text:="Open document", _
            OnAction:="OpenDocument", _
            Before:=1
        )
        MsgBox "图标文件不存在，已添加无图标菜单项"
    End If
End Sub

Sub OpenDocument()
    ' 你的业务代码
    MsgBox "打开文档功能已触发"
End Sub

• 注意：Excel推荐使用16x16像素的.ico格式图标（适配菜单显示），也支持.bmp格式；
• 若使用绝对路径或网络路径，需确保当前用户有足够权限访问该文件。

额外提示 #

• 每次打开工作簿时会重新生成菜单项，添加清理旧项的代码可避免重复创建；
• ShortcutMenus属于旧版命令栏对象，在Excel 2007及以后版本仍兼容，若需更现代化的实现可使用RibbonXML，但旧方法兼容性更广；
• 测试前需确保Excel已启用宏，否则代码无法执行。

内容的提问来源于stack exchange，提问作者Waleed