IncrementContrast Method

Microsoft Word Visual Basic

Changes the contrast of the picture by the specified amount. Use the Contrast property to set the absolute contrast for the picture.

expression.IncrementContrast(Increment)

expression    Required. An expression that returns a PictureFormat object.

Increment    Required Single. Specifies how much to change the value of the Contrast property for the picture. A positive value increases the contrast; a negative value decreases the contrast.

Remarks

You cannot adjust the contrast of a picture past the upper or lower limit for the Contrast property. For example, if the Contrast property is initially set to 0.9 and you specify 0.3 for the Increment argument, the resulting contrast level will be 1.0, which is the upper limit for the Contrast property, instead of 1.2.

Example

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

Dim docActive As Document
Dim shapeLoop As Shape

Set docActive = ActiveDocument

For Each shapeLoop In docActive.Shapes
    If shapeLoop.Type = msoEmbeddedOLEObject Then
        shapeLoop.PictureFormat.IncrementContrast 0.1
    End If
Next shapeLoop