TextFrame 对象成员

ning84

TextFrame 对象成员

代表 Shape 对象中的文本框。包含文本框中的文本，还包含控制文本框对齐方式和定位方式的属性和方法。
方法

	名称	说明
	DeleteText	删除与指定形状相关联的文本。

属性

	名称	说明
	Application	返回一个 Application 对象，该对象表示指定对象的创建者。
	AutoSize	返回或设置一个值，该值指示是否自动调整指定形状的大小以使其中的文本适应边界。可读/写 PpAutoSize 类型。
	Creator	返回 Long 类型值，该值代表创建指定对象的应用程序创建者代码，该代码由四个字符构成。例如，如果对象是在 PowerPoint 中创建的，则此属性返回一个十六进制数 50575054。只读。
	HasText	返回指定形状是否有与之相关联的文本。MsoTriState 类型，只读。
	HorizontalAnchor	返回或设置文本框中文本的水平对齐方式。MsoHorizontalAnchor 类型，可读/写。
	MarginBottom	返回或设置文本框架底部与文本所在的图形的内接矩形底部的距离（以磅为单位）。可读/写 Single 类型。
	MarginLeft	返回或设置文本框架左边与文本所在的图形的内接矩形左边的距离（以磅为单位）。可读/写 Single 类型。
	MarginRight	返回或设置文本框架右边与文本所在的图形的内接矩形的右边的距离（以磅为单位）。可读/写 Single 类型。
	MarginTop	返回或设置文本框架顶部与文本所在的图形的内接矩形顶部的距离（以磅为单位）。可读/写 Single 类型。
	Orientation	返回或设置文本方向。可读/写 MsoTextOrientation 类型。
	Parent	返回指定对象的父对象。
	Ruler	返回一个 Ruler 对象，该对象代表指定文本的标尺。只读。
	TextRange	返回一个 TextRange 对象，该对象代表选定文本（Selection 对象）或指定文本框（TextFrame 对象）中的文本。
	VerticalAnchor	返回或设置文本框中文本的垂直对齐方式。MsoVerticalAnchor 类型，可读/写。
	WordWrap	决定是否自动换行以适应形状内部。可读/写 MsoTriState 类型。

PpAutoSize 可以是下列 PpAutoSize 常量之一。

ppAutoSizeMixed

ppAutoSizeNone

ppAutoSizeShapeToFitText

示例

本示例调整第一个幻灯片的标题边界框的大小以适应标题文本。

Visual Basic for Applications

Set myDocument = ActivePresentation.Slides(1)With myDocument.Shapes(1)    If .TextFrame.TextRange.Characters.Count < 50 Then        .TextFrame.AutoSize = ppAutoSizeShapeToFitText    End IfEnd With

MsoTriState 可以是下列 MsoTriState 常量之一。

msoCTrue

msoFalse

msoTriStateMixed

msoTriStateToggle

msoTrue 指定的形状有与之关联的文字。

示例

如果 myDocument 上的第二个形状包含文本，本示例将调整该形状的大小使之适合文本。

Visual Basic for Applications

Set myDocument = ActivePresentation.Slides(1)With myDocument.Shapes(2).TextFrame    If .HasText Then .AutoSize = ppAutoSizeShapeToFitTextEnd With

MsoHorizontalAnchor 可以是下列 MsoHorizontalAnchor 常量之一。

msoAnchorNone

msoHorizontalAnchorMixed

msoAnchorCenter

示例

本示例将 myDocument 上第一个形状中的文本对齐方式设为顶部居中。

Visual Basic for Applications

Set myDocument = ActivePresentation.SlideMasterWith myDocument.Shapes(1)    .TextFrame.HorizontalAnchor = msoAnchorCenter    .TextFrame.VerticalAnchor = msoAnchorTopEnd With

TextFrame.MarginBottom 属性

返回或设置文本框架底部与文本所在的图形的内接矩形底部的距离（以磅为单位）。可读/写 Single 类型。语法

表达式.MarginBottom

表达式   一个代表 TextFrame 对象的变量。
返回值
Single
示例
以下示例将在 myDocument 中添加一个矩形，向矩形中添加文本，然后设置该文本框架的边距。

Visual Basic for Applications

Set myDocument = ActivePresentation.Slides(1)With myDocument.Shapes.AddShape(msoShapeRectangle, _        0, 0, 250, 140).TextFrame    .TextRange.Text = "Here is some test text"    .MarginBottom = 0    .MarginLeft = 10    .MarginRight = 0    .MarginTop = 20End With

MsoTextOrientation 可以是下列 MsoTextOrientation 常量之一。

msoTextOrientationDownward

msoTextOrientationHorizontal

msoTextOrientationHorizontalRotatedFarEast

msoTextOrientationMixed

msoTextOrientationUpward

msoTextOrientationVertical

msoTextOrientationVerticalFarEast

示例

以下示例会在 myDocument 上将第三个形状中的文本设为水平方向。

Visual Basic for Applications

Set myDocument = ActivePresentation.Slides(1)myDocument.Shapes(3).TextFrame _    .Orientation = msoTextOrientationHorizontal

MsoTriState 可以是下列 MsoTriState 常量之一。

msoCTrue

msoFalse

msoTriStateMixed

msoTriStateToggle

msoTrue 自动换行以适应形状内部。

示例

本示例将包含文本的矩形添加到 myDocument 中，然后在新的矩形中关闭文字回绕。

Visual Basic for Applications

Set myDocument = ActivePresentation.Slides(1)With myDocument.Shapes.AddShape(msoShapeRectangle, _        0, 0, 100, 300).TextFrame    .TextRange.Text = _        "Here is some test text that is too long for this box"    .WordWrap = FalseEnd With

ning84

1. Sub ll()
   
2.     Dim Sld As Slide
   
3.     Dim Shp As Shape
   
4.         Set Sld = ActivePresentation.Slides(1)
   
5.         Set Shp = Sld.Shapes.AddLabel(Orientation:=msoTextOrientationVerticalFarEast, _
   
6.                Left:=100, Top:=100, Width:=60, Height:=150)
   
7.         With Shp
   
8.             .TextFrame.TextRange.Text = "Test Label"
   
9.             Debug.Print .Type, .Type = msoTextBox
   
10.         End With
    
11.     Stop
    
12. 
    
13.         Set Shp = Sld.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
    
14.                Left:=220, Top:=100, Width:=260, Height:=50)
    
15.         With Shp
    
16.             .TextFrame.TextRange.Text = "Test Label"
    
17.             Debug.Print .Type, .Type = msoTextBox
    
18.         End With
    
19.     Stop
    
20. 
    
21. End Sub
    

复制代码

AddTextbox与AddLabel感觉没有什么区别 。


结果都是 17           True