如何用 VBA 设置word文件中嵌入图像的亮度、对比度和清晰度？

对于内嵌图像比较多的文件，当这些文件具有相似的图像灰度分布时，往往需要给他们设置同样的亮度、对比度和清晰度属性，让它们具有比较理想的感观效果。以下就是可以自动设置图像上述属性的vba代码。

'On Error Resume Next '忽略错误

Dim myInline As InlineShape

Application.ScreenUpdating = False

For n = 1 To ActiveDocument.InlineShapes.Count

Set myInline = ActiveDocument.InlineShapes(n)

'myInline.PictureFormat.IncrementBrightness (0.2)

'myInline.PictureFormat.IncrementContrast (0.4)

Set myrange = myInline.ConvertToShape '先换成浮动图形

myrange.ScaleHeight 0.7, True, msoScaleFromMiddle '设置图片的尺寸
myrange .ScaleWidth 0.7, True, msoScaleFromMiddle

With myrange.Fill.PictureEffects '浮动图形才可应用填充图形效果，嵌入图形不可应用图形效果

Set sha = .Insert(msoEffectSharpenSoften) '给图形应用锐化效果

sha.EffectParameters(1).Value = 0.7 '锐化+70%

Set brightnessContrast = .Insert(msoEffectBrightnessContrast) '给图形应用亮度和对比度效果

'brightnessContrast.EffectParameters(1).Value = 0.2 '亮度+20%

brightnessContrast.EffectParameters(2).Value = 0.5 '对比度+50%

End With

myrange.ConvertToInlineShape '再换成嵌入图形

Next n

Application.ScreenUpdating = True

如何用 VBA 设置word文件中嵌入图像的亮度、对比度和清晰度？相关推荐

Word文件中嵌入的Visio文件显示为unknown对象解决方式
今天在处理某个Word文件时,发现嵌入的Visio对象变成了unknown对象,右键点击只有转换的选项,别人打开又是正常,网上冲浪,找到的解决方法试了一下都没有解决. 后面发现是由于vsdx文件默认打 ...
如何用vba在word中快速移动或选中内容区域？
转自:http://www.exceloffice.net/archives/1598 在word中经常需要操作特定位置的文本内容,定位文本内容就显得尤为重要. 在word vba中Range. Se ...
枚举如何设置空白_2019-07-04 用VBA设置word中shape对象相对位置
在excelhome上看到一个提问 Excel 请教:用代码插入文本框,不随文字移动.-ExcelVBA程序开发-ExcelHome技术论坛 -club.excelhome.net 本以为可以通过录 ...
Python控制Word文件中段落格式与文本格式
封面图片:<Python程序设计实验指导书>(ISBN:9787302525790),董付国,清华大学出版社图书详情(京东): ================ 本文主要介绍扩展库pyt ...
elupload获取文件名与路径_Python检查word文件中的特殊“标记”词是否与文件名中的一致(实例59)...
公司的部分文件分为"内部"和"外部".正常情况下,这个标识在文件名及文件首页左上角都有标注.然鹅,有时候操作一下,忘记改了,或者忘记标注了.就需要回头去一个一个 ...
Python提取Word文件中的目录标题保存为Excel文件
from docx import Document from openpyxl import Workbook from openpyxl.styles import Alignment, Borde ...
python word排版_Python控制Word文件中段落格式与文本格式
本文主要介绍扩展库python-docx中关于Word文件中文本格式控制的接口和用法,可以使用命令pip install python-docx安装,然后通过名字docx来使用其中提供的功能. 1.设 ...
使用python提取所有word文件中的所有图片
目录前言代码 GIF示例附:doc转docx 代码前言办公中,偶尔会碰到一种情况,需要提取word文档中的图片,决定写这样一款工具自动提取图片. 关于脚本的使用: 情景1:如果你拿到的是一个 ...
如何设置word文件的首字下沉？
设置word文件的首字下沉其实很简单,跟着小奥一起学着操作: 将光标固定到需要首字下沉的段落当中,点击工具栏中的插入 – 文本 – 首字下沉即可. 如果对首字下沉有其他的要求,我们可以点击首字下沉的下 ...

如何用 VBA 设置word文件中嵌入图像的亮度、对比度和清晰度？

如何用 VBA 设置word文件中嵌入图像的亮度、对比度和清晰度？相关推荐

最新文章

热门文章