This example adds two rectangles to myDocument
. The rectangle on the left is filled with one large image of the picture in Tiles.bmp; the rectangle on the right is filled with many small tiles of the picture in Tiles.bmp
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
.AddShape(msoShapeRectangle, 0, 0, 200, 100).Fill _
.UserPicture "c:\windows\tiles.bmp"
.AddShape(msoShapeRectangle, 300, 0, 200, 100).Fill _
.UserTextured "c:\windows\tiles.bmp"
End With