『壹』 如何批量处理word中图片的格式,调节亮度和对比度
还是让我帮你来出点子吧,怎么前面的都答非所问呢。
新建一个宏,将如下代码原样复制粘贴进入后按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》中的一些批量处理功能。
『贰』 如何批量设置word里图片亮度 对比度
'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中怎样调节背景的透明度
1、菜单栏——格式——背景——水印——图片水印——选择图片——插入内——确定;
2、双击“页容眉”——出现“页眉和页脚”工具栏——点图片右键——设置图片格式——出现“图片格式”对话框;
3、点“图片”——图像控制——“颜色”:下拉有4个选项可供选择(通常为“冲蚀”);“亮度”和“对比度”:右边的%值就可以调节背景图片的透明度了——确定;
4、最后,记得关闭“页眉和页脚”工具栏
『肆』 word里页眉里的图片怎么设置亮度
WORD中插入页眉复的图片会降制低亮度,可以使用如下方法:
1、打开WORD文档,点击插入---图片。