IncrementContrast Method Example

This example increases the contrast for all pictures on myDocument that aren’t already set to maximum contrast.

Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
    If s.Type = msoPicture Or s.Type = msoLinkedPicture Then
        s.PictureFormat.IncrementContrast 0.1
    End If
Next