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