Shapes.AddShape 方法 (Publisher)

将表示自选图形的新 Shape 对象添加到指定的 Shapes 集合。

语法

表达式。AddShape (Type、 Left、 Top、 Width、 Height)

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

参数

名称	必需/可选	数据类型	说明
Type	必需	MsoAutoShapeType	要绘制的自选图形的类型。
Left	必需	Variant	代表自选图形的形状的左边缘的位置。
Top	必需	Variant	代表自选图形的形状的上边缘的位置。
Width	必需	Variant	代表自选图形的形状的宽度。
Height	必需	Variant	代表自选图形的形状的高度。

返回值

Shape

说明

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

示例

以下示例将一个矩形添加到当前出版物的第一页。

Dim shpShape As Shape 
 
Set shpShape = ActiveDocument.Pages(1).Shapes.AddShape _ 
 (Type:=msoShapeRectangle, _ 
 Left:=144, Top:=144, _ 
 Width:=72, Height:=144) 

支持和反馈

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