Office VBA教程:在运行时间修改气球

本主题中的某些内容可能不适用于某些语言。

在为“Office 助手”创建了一个气球后,可通过在气球的标题或文本中添加位图、图标或 Windows 图元文件来定义气球。也可在气球中添加各种控件,如复选框和按钮,以便当用户单击某项时,系统作出响应。还可用颜色、下划线等文本属性强调气球中的文本元素。

在气球中添加图标和位图

要添加一个图标,可为该 Balloon对象的Icon属性指定一个 MsoIconType 常量。要在一个“Office 助手”气球的文本中添加位图或 Windows 图元文件,可在设置标题、文本、复选框或标签的Text属性时指定类型、位置和尺寸因数(如果可用)。以下示例可实现:在一个气球的文本中插入一个 Windows 位图文件。


myBmp = "{bmp c:\Windows\circles.gif}"
myText1 = "This is before the picture, "
myText2 = " and this is after the picture"
Set bln = Assistant.NewBalloon
With bln
    .Heading = "Instructions for Choosing a Bitmap."
    .Text = myText1 & myBmp & myText2
    .Show
End With

在气球中添加控件

可在气球中添加的控件有两种类型:复选框和按钮。气球在创建后就具有五个复选框;要显示复选框,可给控件指定文本。此外,如果气球的类型是 msoBalloonTypeButtons,那么气球中还有五个标签按钮,用与显示复选框相同的方法可显示任意一个标签按钮。如果试图在气球中添加多于五个的复选框或标签按钮,那么就会出现错误。

用气球中某控件的 Text属性可改变该控件的外观。要改变气球中某复选框或按钮对应的功能,可为该控件指定另外一个过程,以便在选中(单击)该复选框或按钮后运行该过程。

以下示例可创建一个带标题、文本和三个选项的气球。当用户选中一个复选框并单击“确定”按钮时,就开始运行相应的过程。


With Assistant.NewBalloon
    .Heading = "Regional Sales Data"
    .Text = "Select your region"
    For i = 1 To 3
        .CheckBoxes(i).Text = "Region " & i
    Next
    .Button = msoButtonSetOkCancel
    .Show
    If .CheckBoxes(1).Checked Then
        runregion1
    End If
    If .CheckBoxes(2).Checked Then
        runregion2
    End If
    If .CheckBoxes(3).Checked Then
        runregion3
    End If
End With

在气球中添加文本的颜色和下划线

在气球中的文本有两种属性可以添加:颜色和下划线。可用 16 种系统支持的颜色强调文本。也可用下划线改变气球中文本的外观。气球中的文本包含文本特性并用括号将代码括入。下面的示例创建了新的“Office 助手”,其标题文字包含下划线,红色文字和蓝色文字也包含下划线。


With Assistant.NewBalloon
    .Heading = "Underlined {ul 1}Heading{ul 0}"
    .Text = "Some {cf 249}Red{cf 0} text and some " & _
    "underlined {cf 252}{ul 1}Blue{ul 0}{cf 0} text."
    .Show
End With

上页:Office VBA教程:添加和管理菜单栏和菜单项 下页:Office VBA教程:“Office 助手”概述

Office VBA教程:在运行时间修改气球

Office VBA教程:“Office 助手”概述 Office VBA教程:命令栏概述
Office VBA教程:返回集合中的对象 Office VBA教程:添加和显示快捷菜单
Office VBA教程:添加和修改工具栏 Office VBA教程:使用“Office 助手”
Office VBA教程:使用命令栏 Office VBA教程:无法使用帮助主题
Office VBA教程:OLE 编程标识符(ActiveX 控件) Office VBA教程:ActivateWizard方法
Office VBA教程:Add方法 Office VBA教程:AddItem方法
Office VBA教程:AddToSearchFolders方法 Office VBA教程:ApplyFilter方法
Office VBA教程:Clear方法 Office VBA教程:ClearFileList方法
Office VBA教程:Close方法 Office VBA教程:Commit方法
Office VBA教程:Copy方法 Office VBA教程:CopyFace方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号