如何批量设置word里图片亮度对比度

答案:1 悬赏:50 手机版

解决时间 2021-01-02 22:38

提问者网友：送舟行
2021-01-01 23:37

如何批量设置word里图片亮度对比度

最佳答案

五星知识达人网友：深街酒徒
2021-01-02 00:05

'Sub Macro1()
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).PictureFormat.Brightness = 0.5 '将嵌入型图片的亮度设置为50
ActiveDocument.InlineShapes(i).PictureFormat.Contrast = 1#
'将嵌入型图片的对比度设置为100
Next i
For i = 1 To ActiveDocument.Shapes.Count
If ActiveDocument.Shapes(i).Type = msoPicture Then '假设浮动型对象是图片时才处理
ActiveDocument.Shapes(i).PictureFormat.Brightness = 0.5
'将浮动型图片的亮度设置为50

ActiveDocument.Shapes(i).PictureFormat.Contrast = 1#
'将浮动型图片的对比度设置为100

End If
Next i
Msgbox "处理完毕！"
'End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息

如何批量设置word里图片亮度 对比度

如何批量设置word里图片亮度对比度