IncrementContrast Method Example

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

Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
    If s.Type = msoEmbeddedOLEObject Then
        s.PictureFormat.IncrementContrast 0.1
    End If
Next