Я хочу создать новый элемент в контекстном меню, известном также как контекстное меню. Я хочу, чтобы этот элемент выполнял макрос, который я сделал. Я проверяю в Интернете, но я могу найти решение, которое действительно работает. Я ставлю здесь, который я попробовал:настроить 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
проверить в часы и добавить элемент управления, но когда я использую правой кнопкой мыши на форме опции не появляется. Возможно, я не стану там, где это должно быть, но я не могу найти нигде объяснения о том, где место для установки нового элемента.
+1 за хороший вопрос. MS отключила возможность редактировать контекстные меню (a/k/a меню правой кнопки мыши) для некоторых компонентов Office. Возможно, они не позволяют вам манипулировать этим контекстным меню. Я не могу подтвердить это сейчас, но я хотел бы упомянуть об этом как предупреждение. –