作者:乔山办公网日期:
返回目录:office365
见如百下度经验专:属
http://jingyan.baidu.com/article/a3a3f811ae57668da2eb8ab7.html
还是让我帮你来出点子吧,怎么前面的都答非所问呢。
新建一个宏,将如下代码原样复制粘贴进入后按F5执行即可。
'Sub Macro1()
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).PictureFormat.Brightness = 0.5 '将嵌入型图片的亮度设置为e69da5e887aae79fa5e9819333850
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》中的一些批量处理功能。
在word当中,双击图片,在菜单栏当中找到格式
格式当中的更正,就是修改亮度、对比度的
除了亮度对比度还有其他可以编辑的内容
1、打开百需要操作的word文件,双击选中图片,然后点击上方的更正。
2、在弹出的窗度口中,已经有很多模板供选择,可以选择那里的模问板,也可以自己自定义调节答。回点击图片更正选项。
3、在左侧弹出的窗口中,可以根据自己需要,调节亮度,对答比度等。调节完关掉这个窗口就可以了。