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