全部显示

Text 属性

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

BalloonLabel 或 BalloonCheckbox 对象：返回或设置 Office 助手气球中在标签或复选框旁显示的文字。String 类型，可读写。

Balloon 对象：返回或设置 Office 助手气球中在标题之后、标签或复选框之前显示的文字。String 类型，可读写。

CommandBarComboBox 对象：返回或设置命令栏组合框控件中显示或编辑区的文字。String 类型，可读写。

HTMLProjectItem 对象：返回或设置 HTML 编辑器中的 HTML 文字。String 类型，可读写。

expression   必需。该表达式返回“应用于”列表中的对象之一。

说明

对于 Balloon、BalloonLabel 和 BalloonCheckbox 对象，可以通过以下语法来指定显示一个的图形：{type location sizing_factor}，其中 type 是 bmp（位图）或 wmf（Windows 图元文件）；location 是资源 ID 或路径及文件名；sizing_factor 指出 .wmf 文件的宽度（对于 .bmp 文件忽略 sizing_factor）。

Balloon 对象还支持带下划线的文字，以及具有系统调色板的 16 种颜色之一的文字。用语法 {ul} 或 {ul 1} 可显示带下划线文字；用 {ul 0} 可清除下划线。若要改变文字的颜色，则可在文字字符串前添加字符序列 {cf number}，其中 number 是下表中列出的系统颜色值之一。

如果指定了上述系统颜色值以外的数值，则 Office 助手气球中的文字为黑色。

示例

本示例创建一个名为“Custom”的新命令栏，并向其添加一个包含有四个列表项的组合框。然后用 Text 属性将“Item 3”设置为默认列表项。

Set myBar = CommandBars _
    .Add(Name:="Custom", Position:=msoBarTop, _
    Temporary:=True)
With myBar
    .Controls.Add Type:=msoControlComboBox, ID:=1
    .Visible = True
End With
Set testComboBox = CommandBars("Custom").Controls(1)
With testComboBox
    .AddItem "Item 1", 1
    .AddItem "Item 2", 2
    .AddItem "Item 3", 3
    .AddItem "Item 4", 4
    .Text = "Item 3"
End With

本示例将新建一个带有标题、文本和三个区域选项的 Office 助手气球，并用 Text 属性为用户提供与气球相关的指导，每个文本框一个标签。

With Assistant.NewBalloon
    .Heading = "Regional Sales Data"
    .Text = "Select a region"
    For i = 1 To 3
        .CheckBoxes(i).Text = "Region " & i
    Next
    .Show
End With

本示例将新建一个 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 助手气球，该气球包含 Windows 图元文件。

With Assistant.NewBalloon
    .Heading = "Underlined {ul 1}Heading{ul 0}"
    .Text ="{WMF ""C:\Favorites\MyPicture.WMF""}"
    .Show
End With