Shapes.AddTextbox 方法 (Publisher)

将表示文本框的新 Shape 对象添加到指定的 Shapes 集合。

语法

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

expression：一个表示 Shapes 对象的变量。

参数

名称	必需/可选	数据类型	说明
Orientation	必需	PbTextOrientation	文本框的方向。
Left	必需	Variant	代表文本框的形状的左边缘的位置。
Top	必需	Variant	代表文本框的形状的上边缘的位置。
Width	必需	Variant	代表文本框的形状的宽度。
Height	必需	Variant	代表文本框的形状的高度。

返回值

Shape

说明

对于 Left、 Top、 Width 和 Height 参数，数值以 磅为单位计算：字符串可以位于 Microsoft Publisher (支持的任何单元中，例如，“2.5 in”) 。

Orientation 参数可以是 Microsoft Publisher 类型库中声明的 PbTextOrientation 常量之一，如下表所示。

常量	说明
pbTextOrientationHorizontal	用于从左向右书写的语言的水平文本框。
pbTextOrientationRightToLeft	用于从右向左书写的语言的水平文本框。 如果未选定从右向左书写的语言，则该值无效。
pbTextOrientationVerticalEastAsia	用于东亚语言的垂直文本框。 如果选定非东亚语言，文本将显示为向右旋转 90 度。

示例

以下示例将一个新的水平文本框添加到当前出版物的第一页。

Dim shpTextBox As Shape 
 
Set shpTextBox = ActiveDocument.Pages(1).Shapes.AddTextBox _ 
 (Orientation:=pbTextOrientationHorizontal, _ 
 Left:=144, Top:=144, _ 
 Width:=72, Height:=18) 

支持和反馈

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