在powerpoint中执行菜单命令

时间:2011-11-21 20:38:52

标签: vba powerpoint powerpoint-vba

我有一个为powerpoint制作的自定义插件,并具有将当前幻灯片导出为HTML5的功能。它不支持导出整个PPT,所以基本上我不得不通过幻灯片和导出进行滑动。

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

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

1 个答案:

答案 0 :(得分:2)

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