Shapes.AddShape method (Publisher)
Adds a new Shape object representing an AutoShape to the specified Shapes collection.
Syntax
expression.AddShape (Type, Left, Top, Width, Height)
expression A variable that represents a Shapes object.
Parameters
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| Type | Required | MsoAutoShapeType | The type of AutoShape to draw. |
| Left | Required | Variant | The position of the left edge of the shape representing the AutoShape. |
| Top | Required | Variant | The position of the top edge of the shape representing the AutoShape. |
| Width | Required | Variant | The width of the shape representing the AutoShape. |
| Height | Required | Variant | The height of the shape representing the AutoShape. |
Return value
Shape
Remarks
For the Left, Top, Width, and Height arguments, numeric values are evaluated in points; strings can be in any units supported by Microsoft Publisher (for example, "2.5 in").
Example
The following example adds a rectangle to the first page of the active publication.
Dim shpShape As Shape
Set shpShape = ActiveDocument.Pages(1).Shapes.AddShape _
(Type:=msoShapeRectangle, _
Left:=144, Top:=144, _
Width:=72, Height:=144)
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.