本示例对选中的图片或 OLE 对象设置亮度、对比度和颜色的冲蚀。

With ActiveWindow.Selection.ShapeRange.PictureFormat
    .Brightness = 0.3
    .Contrast = 0.7
    .ColorType = ksoPictureWatermark
End With