Microsoft Office Word 选中图片锐化以及所有图片锐化的宏代码

一、选中图片锐化

选中单张或多张图片进行锐化的宏代码

' 选中图片锐化工具
Sub OnePicSharpening()For Each i In Selection.InlineShapes  '嵌入型图片类型i.PictureFormat.Brightness = 0.45i.PictureFormat.Contrast = 0.8Next iFor Each i In Selection.ShapeRange    '除去嵌入型图片的所有类型i.PictureFormat.Brightness = 0.45i.PictureFormat.Contrast = 0.8Next i
End Sub

①文件-选项-自定义功能区-宏。左边选中OnePicSharpening的宏代码。
②右边：主选项卡-开始-新建组-重命名：锐化工具合集；
③选中OnePicSharpening，点击【添加】，OnePicSharpening添加到了【锐化工具合集】的组中，然后点击重命名，重命名为【单张锐化】

设定快捷键：Alt+S
选中【单张锐化】，点击【键盘快捷方式】-【自定义】，见到【文件选项卡】后，往下拉进度条，选择【宏】-【OnePicSharpening】。请按新快捷键里面输入【Alt+W】,点击指定。

二、当前文档所有图片锐化

当前文档所有图片进行锐化

'所有图片锐化
Sub PicSharpening()For i = 1 To ActiveDocument.InlineShapes.Count                     '.InlineShapes 指定是嵌入型图片；'0~1对应-100%~100%范围ActiveDocument.InlineShapes(i).PictureFormat.Brightness = 0.45 '将嵌入型图片的亮度设置为0.45ActiveDocument.InlineShapes(i).PictureFormat.Contrast = 0.8    '将嵌入型图片的对比度设置为0.8Next iFor i = 1 To ActiveDocument.Shapes.Count                        'ActiveDocument.Shapes 默认是除去嵌入型图片的所有类型ActiveDocument.Shapes(i).PictureFormat.Brightness = 0.45 '将浮动型图片的亮度设置为0.45ActiveDocument.Shapes(i).PictureFormat.Contrast = 0.8    '将浮动型图片的对比度设置为0.8Next iMsgBox "所有图片锐化完毕！"
End Sub

操作同上，快捷键设定为Alt+D

宏代码参考手册：https://docs.microsoft.com/zh-tw/office/vba/api/word.shaperange

Microsoft Office Word 选中图片锐化以及所有图片锐化的宏代码相关推荐

mongodb上一篇下一篇_如何使用Microsoft office word—上一篇
从这一期开始,将会逐一介绍Microsoft office的几个常用的软件,例如word ppt excel等,每一个软件将分为几期介绍,这几期介绍word.注意:介绍软件版本是Microsoft o ...
smartfroms word编辑_请教Microsoft Office Word 2007 SmartArt图形文本如何直接在里面添加字，修改字。如图。...
展开全部观型外观 Office PowerPoint 2007 具有一个称为 Microsoft Office Fluent 用户界面的全新直观用户界面:与早期版本的 PowerPoint 相比, ...
服务器2003系统安装office,如何在系统中配置Microsoft Office Word 2003？
首页 > 技术文章如何在系统中配置Microsoft Office Word 2003? 第 1 步:安装 Word 若是您还没有在运行 Windows Server 2003.Windows ...
Microsoft Office Word 遇到问题需要关闭如何解决？
"Microsoft Office Word 遇到问题需要关闭.我们对此引起的不便表示抱歉"的提示呢?然后有一个"恢复我的工作并重启 Microsoft Office W ...
Microsoft Office Word 遇到问题需要关闭如何
Word重启,打开之后,随便点什么干什么都重启,最明显的现象就是打开之后,切换其他程序,word重启.最后的办法是通过删除微软拼音输入法来解决的.其他的全试过,没起作用. 你遇到没遇到过"M ...
Microsoft Office Word导出高清PDF步骤
写论文后经常需要导出PDF,但若插进Word中的不是矢量图,会导致图片受损不高清. 常用的办法有: 方法1.word内直接另存为PDF 方法2.word内导出-创建PDF/XPS文档方法3.word ...
postscript怎么打开_怎么把在学习中用的Adobe PDF文件转换成Microsoft office Word
现在我们普遍用的都是Adobe PDF格式的文件,可是Microsoft office Word(.doc,.docx)文档也是我们经常要用的,所以就需要将Adobe PDF转换Microsoft o ...
【牛客】新建 Microsoft Office Word 文档题解
原题链接题目描述 CSL正在学习<计算机办公自动化>文件的建立与删除. CSL发现,当他新建一个word文档时,会得到一个名为"新建 Microsoft Office Word ...
Microsoft Office word 2019教程 - word中的excel表格随着excel表格的变化而变化
Microsoft Office word 2019教程 - word中的excel表格随着excel表格的变化而变化 1.问题 2.解决 2.1 复制excel表格 2.2 转到word 2.3 [ ...

Microsoft Office Word 选中图片锐化以及所有图片锐化的宏代码

Microsoft Office Word 选中图片锐化以及所有图片锐化的宏代码相关推荐

最新文章

热门文章

Microsoft Office Word 选中图片锐化 以及 所有图片锐化的宏代码

Microsoft Office Word 选中图片锐化 以及 所有图片锐化的宏代码相关推荐

最新文章

热门文章

Microsoft Office Word 选中图片锐化以及所有图片锐化的宏代码

Microsoft Office Word 选中图片锐化以及所有图片锐化的宏代码相关推荐