AddEmptyPictureFrame Method [Publisher 2003 VBA Language Reference]
Returns a Shape object that represents an empty picture frame inserted at the specified coordinates.
expression.AddEmptyPictureFrame(Left, Top, [Width = -1], [Height = -1])
expression Required. An expression that returns a Shapes collection.
Left Required Variant. The position of the left edge of the shape representing the picture.
Top Required Variant. The position of the top edge of the shape representing the picture.
Width Required Variant. The width of the shape representing the picture. Default is -1, meaning that the width of the shape is automatically set to 72 points if the parameter is left blank.
Height Required Variant. The height of the shape representing the picture. Default is -1, meaning that the height of the shape is automatically set to 54 points if the parameter is left blank.
Remarks
For Left, Top, Width, and Height arguments, numeric values are evaluated in points; strings can be in any units supported by Publisher (for example, "1.5 in").
The blank picture frame has the default ToolTip "Empty Picture Frame". This is changed to "Picture" when an image is selected for the Shape.
Example
This example places an empty picture frame in the center of the first page of the publication and rotates it by 45 degrees. The AlternativeText property is set to "Picture Placeholder 1" for the Web.
Dim shpPlaceholder As Shape
Set shpPlaceholder = _
ActiveDocument.Pages(1).Shapes.AddEmptyPictureFrame( _
230, 320, 150, 150)
With shpPlaceholder
.AlternativeText = "Picture Placeholder 1"
.Rotation = 45
End With
Applies to | Shapes Collection