office word中利用宏编程批量调节图片的亮度和对比度

Sub '调节亮度和对比度()' 调节亮度和对比度 宏For i = 1 To ActiveDocument.InlineShapes.Count'0~1对应-100%~100%范围ActiveDocument.InlineShapes(i).PictureFormat.Brightness = 0.275  '将嵌入型图片的亮度设置为-45%ActiveDocument.InlineShapes(i).PictureFormat.Contrast = 0.825  '将嵌入型图片的对比度设置为65%Next iFor i = 1 To ActiveDocument.Shapes.CountIf ActiveDocument.Shapes(i).Type = msoPicture Then  '假设浮动型对象是图片时才处理ActiveDocument.Shapes(i).PictureFormat.Brightness = 0.275  '将浮动型图片的亮度设置为-40%ActiveDocument.Shapes(i).PictureFormat.Contrast = 0.825  '将浮动型图片的对比度设置为65%End IfNext iMsgBox "处理完毕！"
End Sub

步骤：在word中新建一个宏，然后复制上述代码到里面，点击运行后提示“处理完成”，然后保存宏以后用

office word中利用宏编程批量调节图片的亮度和对比度相关推荐

Word/WPS 利用邮件合并批量生成文档
Word/WPS 利用邮件合并批量生成文档 WPS 1. 先找到功能所有位置 2. 准备用于批量生成的数据 3. 插入数据批量生成文档 4. 批量生成文档插入Next 域 Word 第1步,选择文档 ...
在Word中利用日历向导查农历
在Word中利用日历向导查农历主要操作步骤如下: 第一步,单击菜单"文件→新建",在"新建文档"窗口中选择"通用模板",马上弹出" ...
word中利用题注实现公式图表自动编号及引用
word中利用题注设置图表公式的自动编号及引用图片编号创建及引用表格编号创建及引用公式样式创建公式编号创建及引用图片编号创建及引用首先选中要题注的图片. 1 插入题注:引用→插入题注,见下 ...
在word中利用Endnote导入文献时提示“无法编辑range”的解决办法-基本上通过以下方法都可以解决
在word中利用Endnote导入文献时提示"无法编辑range"的解决办法注意:在处理这个问题之前,请复制word以备份我们要处理的word文件,否则后期如果我们调整了word ...
Word中利用字体把文字转换为特殊图案(转)
Word中利用字体把文字转换为特殊图案(转)[@more@] 单位里要制作禁烟宣传条幅,那个"禁止吸烟"标志,可以用字母来转换实现: 输入一个英文小写字母"z" ...
在Microsoft Office Word中体验笔墨飞扬的感觉（如何在Office Word中使用画笔功能）
1.安装Microsoft Office 单击开始菜单中的"Office",单击左侧最上方的小房子图标,在右侧单击"安装Office". 在弹出的网页中单击&q ...
在 Microsoft Office Word 中如何删除括号和括号内的文字
在 Microsoft Office Word 中如何删除括号和括号内的文字 /文 chtdsl 问题描述: 在一篇 Word 文章里面有大量的括号,并且括号里面的内容各不相同,如何删 ...
Word中如何自动按照章节给图片编号？
Word中如何自动按照章节给图片编号? 打开天窗说亮话. word的自动给图片编号的功能实在是太差,尤其是按照章节给图片编号.请大家看下面这张图这张图在做一件什么事情呢? 图的上半部分是我在试图为某 ...
wps中的word中公式复制完后是图片
标题:wps中的word中公式复制完后是图片我的是是因为一个是docx,而我的是doc 所以只要将doc改成docx就可以了

office word中利用宏编程批量调节图片的亮度和对比度

office word中利用宏编程批量调节图片的亮度和对比度相关推荐

最新文章

热门文章