按指定值改变图片的对比度。可用 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