Выполнить команды меню в PowerPoint - PullRequest
Новая
       13

Выполнить команды меню в PowerPoint

0 голосов
/ 22 ноября 2011

У меня есть пользовательский плагин, который был создан для powerpoint и имеет функцию для экспорта текущего слайда в HTML5.Он не поддерживает экспорт всего PPT, поэтому в основном мне нужно переходить от слайда к слайду и экспортировать.

Мой вопрос: могу ли я написать что-нибудь в VB, которое может выполнить команду меню, готово, следующий слайдвыполнить команду меню и т. д.?

Я даже не знаю, будет ли VB правильным языком для использования.Я никогда ничего в этом не писал.

1 Ответ

2 голосов
/ 22 ноября 2011

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 ... названия меню отличаются.

...