当前位置：文江博客话题详情

如何为 PowerPoint 2003 创建插件

发布于 2024-08-27 16:59:27 字数 52 浏览 5 评论 0原文

我想为 PowerPoint 2003 创建一个插件，向工具栏添加一个按钮。我该怎么做？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

野心澎湃 2024-09-03 16:59:27

创建一个新模块并添加以下自动打开功能。
您需要将文件保存为 addins 文件夹中的 ppa。

Sub Auto_open()

    Dim oToolbar As CommandBar
    Dim oButton As CommandBarButton

    'Create the toolbar
    Set oToolbar = CommandBars.Add(name:="CommandbarName", Position:=msoBarTop)

    'Add the first button
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)

    With oButton
        .Caption = "New button"
        .OnAction = "FunctionTocall"
        .Style = msoButtonIconAndWrapCaption
        .FaceId = 11 'icon
    End With

End Sub

Create a new module and add the below autoopen function.
You would need to save the file as ppa in the addins folder.

Sub Auto_open()

    Dim oToolbar As CommandBar
    Dim oButton As CommandBarButton

    'Create the toolbar
    Set oToolbar = CommandBars.Add(name:="CommandbarName", Position:=msoBarTop)

    'Add the first button
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)

    With oButton
        .Caption = "New button"
        .OnAction = "FunctionTocall"
        .Style = msoButtonIconAndWrapCaption
        .FaceId = 11 'icon
    End With

End Sub

回复收藏 0 原文