在powerpoint执行菜单命令

Question

我有一个自定义的插件，用于powerpoint，并具有导出当前幻灯片为HTML5的功能。它不支持导出整个PPT，所以基本上我不得不滑出幻灯片并导出。

我的问题是，我可以在VB中写一些可执行菜单命令，完成，下一张幻灯片，执行菜单命令等的东西吗？

我甚至不知道VB是否是正确的语言。我从来没有写过任何东西。

Answer 1

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 ...菜单名称不同的工作。