Question

我想在快捷菜单上显示一个新元素，也称为右键菜单。我希望这个元素执行我创建的宏。我在网上查看，但我找到了一个真正有用的解决方案。我把我试过的那个放在这里：

Public Sub customizeRightClick()
    Dim pic As IPictureDisp
    Set pic = LoadPicture("C:\path\pic.jpg")
    For Each oCmdBar In Application.CommandBars
        If oCmdBar.Type = msoBarTypePopup Then
            If oCmdBar.Name = "Shapes" Then
                Set cmdButton = oCmdBar.Controls.Add(Type:=msoControlButton)
                    With cmdButton
                        .Caption = "Edit Element"
                        .Tag = "Edit"
                        .Picture = pic       'Object of type IPictureDisp
                        .OnAction = "editMag"
                    End With
            End If
        End If
    Next
End Sub

我检查手表并添加控件但是当我使用右键单击形状时，选项不会出现。也许我没有把它放在必要的地方，但我找不到任何关于设置新元素的正确位置的解释。

Answer 1

大卫2007年的正确答案，但似乎他们已经添加了在PPT 2010中自定义上下文菜单的功能：

http://social.msdn.microsoft.com/forums/office/en-US/c1eb22ba-6ca8-4c21-8100-62185355aa53/customize-rightclick-context-menu-in-powerpoint-2010

Answer 2

好的，我确认有：

PPT 2007+中对快捷菜单自定义的有限支持特别。 ....您无法将任何项目添加到形状快捷菜单中（除非它是一个activex控件）PPT 2007 +。

http://answers.microsoft.com/en-us/office/forum/office_2007-customize/customizing-right-click-menu/76aff9b3-9253-40cf-bd21-e1f832144ad8

你可能能够使用功能区/ XML界面执行此操作，但同样可能会受到他们放在某些上下文菜单上的烦人限制。可能根本无法在此版本的PowerPoint中执行您想要执行的操作。

http://msdn.microsoft.com/en-us/library/gg469862.aspx#odc_xl_ta_CustomExcelContextMenus_AddDynamicMenu

自定义快捷方式（右键单击）菜单powerpoint

2 个答案: