Office VBA教程: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 是下表中列出的系统颜色值之一。

系统颜色值 对应颜色
0 黑色
1 暗红
2 深绿
3 深黄
4 深蓝
5 深品红
6 深青
7 浅灰
248
249
250 绿
251
252
253 品红
254
255

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

VBA示例

本示例创建一个名为“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

上页:Office VBA教程:Tag属性 下页:Office VBA教程:TextOrProperty属性

Office VBA教程:Text属性

Office VBA教程:TextOrProperty属性 Office VBA教程:TipOfDay属性
Office VBA教程:Title属性 Office VBA教程:TooltipText属性
Office VBA教程:Top属性 Office VBA教程:Type属性
Office VBA教程:Value属性 Office VBA教程:Visible属性
Office VBA教程:新增属性(按字母顺序列表) Office VBA教程:新增属性(按对象)
Office VBA教程:Width属性 Office VBA教程:Microsoft Office对象
Office VBA教程:不支持的语言元素 Office VBA教程:Add方法 (Microsoft Word)
Office VBA教程:Context属性 Office VBA教程
Office VBA参考教程:目录2 Office VBA参考教程:目录3
Office VBA参考教程:目录4 Office VBA参考教程:目录5
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号