如题所述
AddTextbox 方法
创建文本框。返回一个 Shape 对象,该对象代表新建的文本框。
expression.AddTextbox(Orientation, Left, Top, Width, Height)
expression 必需。该表达式返回“应用于”列表中的对象之一。
Orientation MsoTextOrientation 类型,必需。文本框的方向。
MsoTextOrientation 可为以下 MsoTextOrientation 常量之一。
msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast
对于所选择或安装的不同语言支持(例如:美国英语),以上的某些常量可能不可用。
Left Single 类型,必需。相对于文档的左上角,以磅为单位给出文本框左上角的位置。
Top Single 类型,必需。相对于文档的顶部,以磅为单位给出文本框的左上角位置。
Width Single 类型,必需。以磅为单位给出文本框的宽度。
Height Single 类型,必需。以磅为单位给出文本框的高度。
示例
本示例向 myDocument 中添加包含文本“Test Box”的文本框。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
100, 100, 200, 50) _
.TextFrame.Characters.Text = "Test Box"
创建文本框。返回一个 Shape 对象,该对象代表新建的文本框。
expression.AddTextbox(Orientation, Left, Top, Width, Height)
expression 必需。该表达式返回“应用于”列表中的对象之一。
Orientation MsoTextOrientation 类型,必需。文本框的方向。
MsoTextOrientation 可为以下 MsoTextOrientation 常量之一。
msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast
对于所选择或安装的不同语言支持(例如:美国英语),以上的某些常量可能不可用。
Left Single 类型,必需。相对于文档的左上角,以磅为单位给出文本框左上角的位置。
Top Single 类型,必需。相对于文档的顶部,以磅为单位给出文本框的左上角位置。
Width Single 类型,必需。以磅为单位给出文本框的宽度。
Height Single 类型,必需。以磅为单位给出文本框的高度。
示例
本示例向 myDocument 中添加包含文本“Test Box”的文本框。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
100, 100, 200, 50) _
.TextFrame.Characters.Text = "Test Box"
温馨提示:答案为网友推荐,仅供参考