2013-12-03 2 views
2

Я хочу создать новый элемент в контекстном меню, известном также как контекстное меню. Я хочу, чтобы этот элемент выполнял макрос, который я сделал. Я проверяю в Интернете, но я могу найти решение, которое действительно работает. Я ставлю здесь, который я попробовал:настроить shorcut (щелчок правой кнопкой мыши) меню powerpoint

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 

проверить в часы и добавить элемент управления, но когда я использую правой кнопкой мыши на форме опции не появляется. Возможно, я не стану там, где это должно быть, но я не могу найти нигде объяснения о том, где место для установки нового элемента.

+0

+1 за хороший вопрос. MS отключила возможность редактировать контекстные меню (a/k/a меню правой кнопки мыши) для некоторых компонентов Office. Возможно, они не позволяют вам манипулировать этим контекстным меню. Я не могу подтвердить это сейчас, но я хотел бы упомянуть об этом как предупреждение. –

ответ

0

OK Я подтвердил, что есть:

Ограниченная поддержка контекстных меню настроек в РРТ 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

Смежные вопросы