vba设置图片格式怎么设置 vba设置图片大小及位置
VBA是Word软件重要的扩展功能之一,具有强大的代码编辑和执行功能。那么如何利用VBA来修改Word中图片的大小呢?下面作者给大家演示一下详细的操作流程。
统一大小
1、点击鼠标右键,选择“新建”选项,然后点击“mircosoft Word 2007”新建一个Word文件。
2、选择Word界面上方的“插入”选项,然后点击'“图片”按钮。
3、选中需要编辑的图片,然后点击“插入”按钮。
4、图片插入完成后,点击“开发工具”选项,然后选择“宏”进行VBA代码写入。
5、写明代码的名称,然后点击“创建”按钮。
6、写入VBA代码,主要利用代码为shap.width(宽度设置)和shap.height(高度设置),然后关闭界面。
7、选择编辑完成的代码,然后点击“执行”按钮。
8、图片大小就修改完成了。
图片排版
有一个很长的总结报告,100页左右。里面的图片格式比较乱,需要统一改为单倍行距、居中对齐、去掉首行缩进、统一长宽尺寸。
Sub 图片格式()
Dim pic As InlineShape ‘定义pic
For Each pic In ActiveDocument.InlineShapes ‘遍历每一张嵌入的图片
With pic.Range.ParagraphFormat ‘设置图片所在段落格式
.LineSpacingRule = wdLineSpaceSingle ‘单倍行距
.CharacterUnitFirstLineIndent = 0 ‘首行空0字符
.FirstLineIndent = CentimetersToPoints(0) ‘首行缩进0磅,注意要和上面的0字符同时使用,否则不行
.Alignment = wdAlignParagraphCenter ‘居中对齐
End With
pic.LockAspectRatio = msoFalse ‘msoTrue ‘是否锁定长宽比
pic.Height = 6 * 28.345 ‘设置长宽,把厘米转化为磅值
pic.Width = 8 * 28.345
Next
End Sub
以上就是利用VBA统一修改word文档中图片格式的技巧,希望大家喜欢,请继续关注电脑系统之家。<
最新推荐
-
win7如何启动print spooler服务 print spooler服务在哪里打开
win7如何启动print spooler服务?Print Spooler是打印后台处理服务,如果此服务被 […]
-
win11如何启动print spooler服务 printspooler在哪里开启
win11如何启动print spooler服务?print spooler服务如果没有启动,打印机就没办 […]
-
mac怎么分区硬盘分区 mac电脑硬盘分区在哪里
mac怎么分区硬盘分区?mac苹果电脑与常用的windows系统不同,不需要用户对磁盘进行归类划分,那如果 […]
-
win11定位服务在哪里打开 win11开启位置信息服务
win11定位服务在哪里打开?在win11系统中,通过定位服务,用户可以更好的自动设置时区、提供导航、显示 […]
-
win7怎么设置禁止安装软件 win7系统禁止安装软件
win7怎么设置禁止安装软件?在电脑上进行第三方软件应用的安装使用有不安全的因素,如果用户不需要再电脑上进 […]
-
win11怎么关闭用户账户uac控制 win11一直弹出用户账户控制
win11怎么关闭用户账户uac控制?在win11系统中,很多用户在使用会经常遇到在安装应用,或修改系统设 […]
热门文章
win7如何启动print spooler服务 print spooler服务在哪里打开
2win11如何启动print spooler服务 printspooler在哪里开启
3mac怎么分区硬盘分区 mac电脑硬盘分区在哪里
4win11定位服务在哪里打开 win11开启位置信息服务
5win7怎么设置禁止安装软件 win7系统禁止安装软件
6win11怎么关闭用户账户uac控制 win11一直弹出用户账户控制
7win7系统中自带的游戏删除了怎么办 win7自带游戏没了怎么办
8win11文件夹只读模式怎么解除 文件夹只读模式解除步骤
9Win10电脑屏保广告如何取消 关闭win10锁屏界面广告
10edge开发者选项在哪里打开 edge浏览器打开开发者模式
随机推荐
专题工具排名 更多+