BalloonCheckboxes 集合对象
优质
小牛编辑
133浏览
2023-12-01
本主题中的某些内容可能不适用于某些语言。
一个BalloonCheckbox 对象的集合。该对象代表“Office 助手”气球中所有的复选框。
使用 BalloonCheckboxes 集合
用Checkboxes 属性可返回BalloonCheckboxes 集合。
用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
显示气球后,将不能再向BalloonCheckBoxes 集合中添加或删除复选框。
说明
在用户清除气球之前,气球复选框将一直显示用户的选择。在用户单击标签旁的按钮后,使用气球标签连同Select 方法可返回与用户所选复选框相对应的数字。若要将用户选择的数字值传递给Select 方法,则必须将气球类型设置为msoBalloonTypeButtons。
Assistant Balloon BalloonCheckBoxes (BalloonCheckBox) BalloonLabels (BalloonLabel) |