Word VBA教程:IncrementContrast方法

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

expression.IncrementContrast(Increment)

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

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

说明

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

VBA示例

本示例实现的功能是:为活动文档中未设置为最大对比度的所有嵌入式 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号