818bbb 发表于 2016-4-12 12:06:15

请教：如何在POWERPOINT的工具栏加入一个按钮，当点击按钮时调用自己的应用程序？

在EXCEL中也要做同样的功能。

28150146 发表于 2016-4-12 13:09:32

怪我没说清楚，我的意思是写一段VBA程序，当PPT启动时自动去执行这段宏，宏的作用就是向工具栏添加按钮。

user_exbgx 发表于 2016-4-12 13:11:59

大虾们帮忙啊。

fanruike 发表于 2016-4-12 13:19:33

To:winak能不能告诉我一下例子的URL？先谢了。

user_axhhprvs 发表于 2016-4-12 13:28:25

高手帮忙啊.

tba0207 发表于 2016-4-12 13:40:20

Sub Macro1()
'
' 宏由 cnTest 记录，日期： 2004-2-13
'Dim cmBar As CommandBar
Dim conTrol As CommandBarControl
CommandBars("msg").Delete
Set cmBar = CommandBars.Add("msg", msoBarTop)
cmBar.Visible = True
Set conTrol = cmBar.Controls.Add(msoControlButton, 1, , , True)
conTrol.Caption = "显示选定内容"
conTrol.TooltipText = "show "
conTrol.Visible = True
conTrol.OnAction = "msgStr"
conTrol.Width = 200End Sub
Sub msgStr()
                       MsgBox (ActiveWindow.Selection.TextRange.Text)
                       
End Sub

user_bboxm 发表于 2016-4-12 14:10:33

ActiveWindow.Selection.TextRange.Text在运行的时候不能通过啊.

user_zqhxjsfe 发表于 2016-4-12 14:14:02

Sub auto_open()Dim MyButton As CommandBarControl
foundFlag = FalseFor Each cb In CommandBars("menu bar").Controls    If cb.Caption = "我的菜单(&M)" Then      foundFlag = True    End IfNext cb
    If foundFlag Then      Exit Sub    Else            Set MyMenu = Application.CommandBars("menu bar").Controls.Add(Type:=msoControlPopup, temporary:=True)       MyMenu.Caption = "我的菜单(&M)"       Set MyButton = MyMenu.Controls.Add(msoControlButton)            With MyButton                .Style = msoButtonIconAndCaption                .BeginGroup = True                .Caption = "批量打印"                .FaceId = 122                .OnAction = "copyfromsheet"            End With    End IfEnd Sub
存成PPA文件就可以了.

test123457 发表于 2016-4-12 15:06:41

在Excel中没有问题,在Powerpoint中就别指望了.PPT学习论坛，顶一下40531

2020-mark 发表于 2016-4-12 15:39:34

在EXCEL当中可用如下方法添加按钮，详
见附件。调用程序可以在宏中用SHELL语句来实现。
页: [1] 2
查看完整版本: 请教：如何在POWERPOINT的工具栏加入一个按钮，当点击按钮时调用自己的应用程序？