本示例将第一个窗口中选中的图片和 OLE 对象,使其放大至原高度和宽度的 175%。

With Windows(1).Selection.ShapeRange
    .ScaleHeight 1.75, ksoTrue
    .ScaleWidth 1.75, ksoTrue
End With