如何批量处理word中图片的格式，调节亮度和对比度？

最新推荐文章于 2024-05-09 12:41:07 发布

weixin_30386713

最新推荐文章于 2024-05-09 12:41:07 发布

阅读量2.7k

点赞数

原文链接：http://www.cnblogs.com/studywiththinking/p/4638646.html

版权

每个word文件中有几百个带底纹的图片，
需要将这些图片格式设置成的亮度为50，对比度为100，这样能去除底纹。
请问如何批量处理？

还是让我帮你来出点子吧，怎么前面的都答非所问呢。

新建一个宏，将如下代码原样复制粘贴进入后按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

今后也推荐你使用我开发的《文件批量处理百宝箱V8.0》中的一些批量处理功能。