VBA может быть проще, поскольку он встроен в PowerPoint.
Если вам известно имя панели команд и элемент управления на панели команд, который вы хотите запустить:
Sub LaunchTheCommand()
Dim oCmdbar As CommandBar
Set oCmdbar = Application.CommandBars("CommandBarName")
oCmdbar.Controls("ControlName").Execute
End Sub
Просмотр | Панели инструментов покажут вам названия ваших панелей инструментов.
Это может помочь вам найти правильное название для отдельных элементов управления:
Sub ShowTheControlNames()
Dim oCmdbar As CommandBar
Dim oCtl As CommandBarControl
' for example, let's look at the Standard toolbar:
Set oCmdbar = Application.CommandBars("Standard")
For Each oCtl In oCmdbar.Controls
Debug.Print oCtl.Caption
Next
End Sub
Обратите внимание, что ваш код не будет работать на неанглийских версиях PowerPoint ... названия меню отличаются.