Text 属性

全部显示

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

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

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

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

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

expression.Text

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