陈炜 02/18/2006
在 FrontPage 和其它 Office 程序中,我们可以通过 VBA 直接访问 Office 助手,从而为我们的 COM 插件或是内置宏与用户的交互提供了更变里的途径的及更美观的交互界面。
对 Office 助手的访问主要通过对象 Balloon(气球)。下面的代码展示了如何利用 Balloon 创建自定义的错误提示。
注:我们构造一个简单错误,如 MsgBox 1/0 ,来展示我们的代码。
On Error GoTo HandleWithAssistant
'错误(11),除数为零
MsgBox 1 / 0
Exit Sub
HandleWithAssistant:
With Application.Assistant.NewBalloon
.BalloonType = msoBalloonTypeButtons '类型
.Button = msoButtonSetRetryCancel '按钮类型
.Animation = msoAnimationThinking '助手动作
'标题(或显示内容)
.Heading
在 FrontPage 和其它 Office 程序中,我们可以通过 VBA 直接访问 Office 助手,从而为我们的 COM 插件或是内置宏与用户的交互提供了更变里的途径的及更美观的交互界面。
对 Office 助手的访问主要通过对象 Balloon(气球)。下面的代码展示了如何利用 Balloon 创建自定义的错误提示。
注:我们构造一个简单错误,如 MsgBox 1/0 ,来展示我们的代码。
On Error GoTo HandleWithAssistant
'错误(11),除数为零
MsgBox 1 / 0
Exit Sub
HandleWithAssistant:
With Application.Assistant.NewBalloon
.BalloonType = msoBalloonTypeButtons '类型
.Button = msoButtonSetRetryCancel '按钮类型
.Animation = msoAnimationThinking '助手动作
'标题(或显示内容)
.Heading