IncrementContrast Method Example

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

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