Application.CommandBars("cell")怎么在右击图片时加菜单？

qong6688

经测试以下代码不能加自定义的右键快捷菜单添加到图片等shape上，请问需要怎么做啊？感谢

Private Sub Workbook_Open()
'    Function:自定义右键快捷菜单
    Dim cmp As CommandBarPopup '定义一个弹出式控件
    Application.CommandBars("Cell").Reset '单元格菜单重置
    Set cmp = Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup, before:=1, temporary:=True)
'    添加单元格右键菜单，增加位置第一个
    With cmp
        .Caption = "自定义右键菜单" '菜单命名
'        下面添加子菜单
        With .Controls.Add(Type:=msoControlButton, before:=1)
            .Caption = "功能1" '子菜单名称
            .FaceId = 39
            .OnAction = "function1" 'function1是你自定义的功能名称
        End With
        With .Controls.Add(Type:=msoControlButton, before:=2)
            .Caption = "功能2"
            .FaceId = 39
            .OnAction = "function2"
        End With
    End With
    Set cmp = Nothing
End Sub

金樽空对月

excel中通常情况下不要给对象设置右键菜单，会和软件内的右键功能菜单冲突，可能出现不可预知的错误。

qong6688

金樽空对月 发表于 2022-4-15 22:42
excel中通常情况下不要给对象设置右键菜单，会和软件内的右键功能菜单冲突，可能出现不可预知的错误。

麻烦大佬帮忙看看怎么设吧？我的vba功能不复杂，只想在图片上加右键菜单，出现不可预知错误也无所谓啦，谢谢

roserice

你这里也没有添加图片啊，不用测试也能知道这代码不行

eennoo

不妨自己做一个事件出来？

qong6688

eennoo 发表于 2022-4-16 23:20
不妨自己做一个事件出来？

不知道要怎么去做嘛，麻烦大佬给指点下吧，谢谢