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

818bbb

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

28150146

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

user_exbgx

大虾们帮忙啊。

fanruike

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

user_axhhprvs

高手帮忙啊.

tba0207

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

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

user_zqhxjsfe

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

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

2020-mark

在EXCEL当中可用如下方法添加按钮，详
见附件。调用程序可以在宏中用SHELL语句来实现。