如何批量处理word中图片的格式,调节亮度和对比度
发布网友
发布时间：2022-04-24 01:36
共1个回答
热心网友
时间：2022-04-25 12:38
得用宏：
新建一个宏，将如下代码原样复制粘贴进入后按F5执行即可。
'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
里面的参数你要改啊，原文档先备份一下，切记。
