vba - 自定义快捷方式(右键单击)菜单powerpoint

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

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

Answer 1

David 在 2007 年是正确的，但似乎他们已经在 PPT 2010 中添加了自定义上下文菜单的功能:

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