Question

按指定数值改变图片亮度。可用 Brightness 属性设置图片的绝对亮度。

expression.IncrementBrightness(Increment)

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

Increment Single 类型，必需。指定图片 Brightness 属性的改变量。正数值增加图片亮度，负数值调暗图片。

说明

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

示例

本示例实现的功能是：在活动文档中复制图形 1，然后移动并且调暗该复制图形。只有在图形 1 是一个图片或 OLE 对象时，本示例才有效。

Dim docActive As Document

Set docActive = ActiveDocument

With docActive.Shapes(1).Duplicate
 .PictureFormat.IncrementBrightness -0.2
 .IncrementLeft 50
 .IncrementTop 50
End With