BalloonCheckBox 对象

Assistant Balloon BalloonCheckBoxes (BalloonCheckBox) BalloonLabels (BalloonLabel)

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

代表“Office 助手”气球中的一个复选框。BalloonCheckBox 对象是 BalloonCheckBoxes 集合中的一个成员。

使用 BalloonCheckbox 对象

用 CheckBoxes(index) 可返回一个 BalloonCheckBox 对象，其中的 index 是一个 1 到 5 的数字。一个气球中可有 1 到 5 个复选框，每个复选框在其 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

说明

在用户清除气球之前，气球复选框将一直显示用户的选择。在用户单击标签旁的按钮后，气球标签立即返回与用户在 Select 方法中的选择相对应的数字。若要将用户选择的数字值传递给 Select 方法，则必须将气球类型设置为 msoBalloonTypeButtons。