在运行时间修改气球

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

在为“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