Share via

UserPicture Method [Publisher 2003 VBA Language Reference]

  • Article

Fills the specified shape with one large image.

expression.UserPicture(PictureFile)

expression Required. An expression that returns one of the objects in the Applies To list.

PictureFile  Required String. The name of the picture file.

Remarks

To fill the shape with small tiles of an image, use the UserTextured method.

Example

This example adds two rectangles to the active publication. The rectangle on the left is filled with one large image of a picture; the rectangle on the right is filled with many small tiles of the same picture. (Note that PathToFile must be replaced with a valid file path for this example to work.)

With ActiveDocument.Pages(1).Shapes
    .AddShape(Type:=msoShapeRectangle, _
        Left:=0, Top:=0, Width:=200, Height:=100).Fill _
        .UserPicture PictureFile:="PathToFile"
    .AddShape(Type:=msoShapeRectangle, _
        Left:=300, Top:=0, Width:=200, Height:=100).Fill _
        .UserTextured TextureFile:="PathToFile"
End With

Applies to | FillFormat Object