CanvasShapes.AddTextbox 方法 (Word)

  • 项目

在绘图画布上添加一个文本框。 返回一个 Shape 对象，该对象表示文本框。

语法

表达式。AddTextbox (方向、 左侧、 顶部、 宽度、 高度)

expression 是必需的。 一个代表 CanvasShapes 对象的变量。

参数

名称 必需/可选 数据类型 说明
Orientation 必需 MsoTextOrientation 文本的方向。 中文 的一些可能不可用，这取决于您所选择或安装的语言支持 (例如美国英语)。
Left 必需 Single 文本框左边缘的位置（以磅为单位）。
Top 必需 Single 文本框上边缘的位置（以磅为单位）。
Width 必需 Single 文本框的宽度（以磅为单位）。
Height 必需 Single 文本框的高度（以磅为单位）。

示例

本示例在新文档中的绘图画布上添加一个文本框。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。