UserPicture 方法

用较大的图像填充指定的形状。如果要用平铺的小图像来填充形状，可使用 UserTextured 方法。

expression  必选。该表达式返回一个 FillFormat 对象。

PictureFile  必选。String 类型。图片文件的名称。

示例

本示例向 myDocument 中添加两个矩形。用 Tiles.bmp 文件中的一幅大图像填充左边的矩形；用 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