Shapes.AddLabel 方法 (Publisher)
将表示文本标签的新 Shape 对象添加到指定的 Shapes 集合。
语法
表达式。AddLabel (方向、 左侧、 顶部、 宽度、 高度)
expression:一个表示 Shapes 对象的变量。
参数
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
Orientation | 必需 | PbTextOrientation | 标签的方向。 可以是 PbTextOrientation 常量之一。 |
Left | 必需 | Variant | 代表文字标签的形状的左边缘的位置。 |
Top | 必需 | Variant | 代表文字标签的形状的上边缘的位置。 |
Width | 必需 | Variant | 代表文字标签的形状的宽度。 |
Height | 必需 | Variant | 代表文字标签的形状的高度。 |
返回值
Shape
说明
对于 Left、 Top、 Width 和 Height 参数,数值以 磅为单位计算:字符串可以位于 Microsoft Publisher (支持的任何单元中,例如,“2.5 in”) 。
示例
以下示例将新的水平文字标签添加到当前出版物的第一页。
Dim shpLabel As Shape
Set shpLabel = ActiveDocument.Pages(1).Shapes.AddLabel _
(Orientation:=pbTextOrientationHorizontal, _
Left:=144, Top:=144, _
Width:=72, Height:=18)
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。