Shape.TextFrame2 属性 (Project)
获取一个 TextFrame2 对象,该对象包含文本框架中的文本以及控制文本框架的对齐、定位和其他特征的成员。 只读 TextFrame2 对象。
语法
表达式。TextFrame2
表达 一个代表 Shape 对象的变量。
备注
TextFrame2 对象包含许多与 TextFrame 对象相同的属性,以及 AutoSize、ThreeD 和艺术字格式等其他属性。
示例
以下示例创建两个文本框并将其添加到 ShapeRange 对象,设置这两个文本框架以自动适应文本,将第一个文本框形状中文本的前景色设置为红色,将形状区域的前景色设置为黄色色调,然后使用 TextEffect 属性在形状区域中的两个文本框上设置字体属性。
单个 Shape 对象的 TextFrame2 属性以粗体字体显示。
Sub FormatTextBox()
Dim theReport As Report
Dim textShape1 As shape
Dim textShape2 As shape
Dim reportName As String
Dim sRange As ShapeRange
reportName = "Textbox range report"
Set theReport = ActiveProject.Reports.Add(reportName)
Set textShape1 = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 50, 350, 80)
textShape1.Name = "Text box 1"
Set textShape2 = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 130, 350, 80)
textShape2.Name = "Text box 2"
Set sRange = theReport.Shapes.Range(Array("Text box 1", "Text box 2"))
sRange.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
sRange(1).TextFrame2.TextRange.Text = "This is a test. It's only a test."
sRange(2).TextFrame2.TextRange.Text = "This is text box 2."
sRange(1).TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = &H2020CC
sRange.Fill.ForeColor.RGB = &H88CCCC
With sRange.TextEffect
.FontName = "Courier New"
.FontBold = True
.FontItalic = True
.FontSize = 28
End With
sRange(2).Select
End Sub
属性值
TEXTFRAME2
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。