Question

按指定值改变图片的对比度。可用 Contrast 属性设置图片的绝对对比度。

expression.IncrementContrast(Increment)

expression 必需。该表达式返回 PictureFormat 对象。

Increment Single 类型，必需。指定图片 Contrast 属性的改变量。正数值增加对比度，负数值减小对比度。

说明

图片对比度的调整不能超出 Contrast 属性的上下界限。例如，如果最先将 Contrast 属性设为 0.9，指定Increment 参数为 0.3，则最后的对比度不是 1.2，而是 Contrast 属性的最高界限，即 1.0。

示例

本示例实现的功能是：为活动文档中未设置为最大对比度的所有嵌入式 OLE 对象增加对比度。

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