应用于 CanvasShapes 对象的 AddTextbox 方法。
在画布上添加一个文本框。返回代表该文本框的 Shape 对象,并将其添加到 CanvasShapes 集合。
expression.AddTextbox(Orientation, Left, Top, Width, Height)
expression 必需。该表达式返回一个 CanvasShapes 对象。
Orientation MsoTextOrientation,必需。指定文本的方向。由于选择或安装的语言支持(例如美国英语)不同,有些常量可能无法使用。
MsoTextOrientation 可以是下列 MsoTextOrientation 常量之一: |
msoTextOrientationDownward |
msoTextOrientationHorizontal |
msoTextOrientationHorizontalRotatedFarEast |
msoTextOrientationMixed |
msoTextOrientationUpward |
msoTextOrientationVertical |
msoTextOrientationVerticalFarEast |
Left Single 类型,必需。文本框左侧边缘的位置,以磅为单位。
Top Single 类型,必需。文本框上部边缘的位置,以磅为单位。
Width Single 类型,必需。文本框的宽度,以磅为单位。
Height Single 类型,必需。文本框的高度,以磅为单位。
在文档中添加一个文本框。返回一个代表该文本框的 Shape 对象,并将其添加到 Shapes 集合。
expression.AddTextbox(Orientation, Left, Top, Width, Height, Anchor)
expression 必需。该表达式返回“应用于”列表中的一个对象。
Orientation MsoTextOrientation,必需。指定文本的方向。由于选择或安装的语言支持(例如美国英语)不同,有些常量可能无法使用。
MsoTextOrientation 可以是下列 MsoTextOrientation 常量之一: |
msoTextOrientationDownward |
msoTextOrientationHorizontal |
msoTextOrientationHorizontalRotatedFarEast |
msoTextOrientationMixed |
msoTextOrientationUpward |
msoTextOrientationVertical |
msoTextOrientationVerticalFarEast |
Left Single 类型,必需。文本框左侧边缘的位置,以磅为单位。
Top Single 类型,必需。文本框上部边缘的位置,以磅为单位。
Width Single 类型,必需。文本框的宽度,以磅为单位。
Height Single 类型,必需。文本框的高度,以磅为单位。
Anchor Variant 类型,可选。代表文本框所连接文本的 Range 对象。如果指定 Anchor,锁定标记将位于锁定区域第一段的起始位置。如果忽略该参数,Word 将自动选定锁定区域,而该文本框将相对于页面的上部和左侧边缘进行定位。
本示例在新文档中的画布上添加一个文本框。
Sub NewCanvasTextbox()
Dim docNew As Document
Dim shpCanvas As Shape
'Create a new document and add a drawing canvas
Set docNew = Documents.Add
Set shpCanvas = docNew.Shapes.AddCanvas _
(Left:=100, Top:=75, Width:=150, Height:=200)
'Add a text box to the drawing canvas
shpCanvas.CanvasItems.AddTextbox _
Orientation:=msoTextOrientationHorizontal, _
Left:=1, Top:=1, Width:=100, Height:=100
End Sub
本示例在新文档中添加一个包含文字“Test”的文本框。
Sub newTextbox()
Dim docNew As Document
Dim newTextbox As Shape
'Create a new document and add a text box
Set docNew = Documents.Add
Set newTextbox = docNew.Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=300, Height:=200)
'Add text to the text box
newTextbox.TextFrame.TextRange = "Test"
End Sub