以指定量更改图片的对比度。可用 Contrast 属性设置图片的绝对对比度。
expression.IncrementContrast(Increment)
expression 必需。该表达式返回一个 PictureFormat 对象。
Increment Single 类型,必需。指定要对图形的 Contrast 属性值作的改变量。正值将使对比度增大,负值将使对比度减小。
不能使图片的对比度超出 Contrast 属性值的上下限。例如,如果 Contrast 属性初始值为 0.9,而又将 Increment 参数指定为 0.3,那么结果对比度将是 1.0(该值即为 Contrast 属性值的上限),而不是 1.2。
本示例使 myDocument
上所有对比度未到最大值的图片都增大对比度。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.Type = msoPicture Or s.Type = msoLinkedPicture Then
s.PictureFormat.IncrementContrast 0.1
End If
Next