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