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

lovesun

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

lovesun

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

lovesun

大虾们帮忙啊。

lovesun

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

lovesun

高手帮忙啊.

henrry

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 = 200 End Sub
Sub msgStr()
MsgBox (ActiveWindow.Selection.TextRange.Text)

End Sub

lovesun

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

aaaaabbbbb

Sub auto_open() Dim MyButton As CommandBarControl

foundFlag = False For Each cb In CommandBars("menu bar").Controls If cb.Caption = "我的菜单(&M)" Then foundFlag = True End If Next 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 If End Sub

存成PPA文件就可以了.

[此贴子已经被作者于2004-6-13 0:00:59编辑过]

wenz

在Excel中没有问题,在Powerpoint中就别指望了.http://club.excelhome.net/viewthread.php?tid=40531

qdofficer

在EXCEL当中可用如下方法添加按钮，详

见附件。调用程序可以在宏中用SHELL语句来实现。