Set myDocument = ActiveDocumentWith myDocument.Shapes(1).PictureFormat .Brightness = 0.3 .Contrast = .75End With