如何批量处理word中图片的格式,调节亮度和对比度? | 您所在的位置:网站首页 › 如何在word里调节图片透明度和亮度 › 如何批量处理word中图片的格式,调节亮度和对比度? |
每个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 '将浮动型图片的亮度设置为50ActiveDocument.Shapes(i).PictureFormat.Contrast = 1# '将浮动型图片的对比度设置为100End If Next i Msgbox "处理完毕!"'End Sub今后也推荐你使用我开发的《文件批量处理百宝箱V8.0》中的一些批量处理功能。 |
CopyRight 2018-2019 实验室设备网 版权所有 |