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文档中图片格式的技巧,希望大家喜欢,请继续关注电脑系统之家。<
最新推荐
-
谷歌浏览器下载文件存储位置怎么修改
谷歌浏览器下载文件存储位置怎么修改?谷歌浏览器是一款开源的强大的浏览器,支持用户进行自定义的设置,那如果用 […]
-
火狐浏览器打不开该网页因为无法连接到服务器怎么解决
火狐浏览器打不开该网页因为无法连接到服务器怎么解决?火狐浏览器拥有强大丰富的功能,很受用户欢迎,但是有的用 […]
-
mac如何设置屏幕常亮不黑屏 mac不黑屏设置方法
mac如何设置屏幕常亮不黑屏?苹果电脑系统中很多功能也跟win系统类似,比如常用的亮度功能等,都可以通过调 […]
-
win11系统怎么和手机连接 win11连接手机功能
win11系统怎么和手机连接?在最新的win11系统中,微软提供了连接手机功能,通过win11系统与手机进 […]
-
win113d加速如何开启 win11怎么开启高性能模式
win113d加速如何开启?在电脑系统中,用户通过开启3d加速功能,可以让游戏显得更流畅,更好的展现图像效 […]
-
win10没有有效ip配置该怎么解决 Win10以太网没有有效的IP配置
win10没有有效ip配置该怎么解决?本地连接没有有效的IP配置的问题,其实是因为你的电脑无法正常获取到网 […]
热门文章
谷歌浏览器下载文件存储位置怎么修改
2火狐浏览器打不开该网页因为无法连接到服务器怎么解决
3mac如何设置屏幕常亮不黑屏 mac不黑屏设置方法
4win11系统怎么和手机连接 win11连接手机功能
5win113d加速如何开启 win11怎么开启高性能模式
6win10没有有效ip配置该怎么解决 Win10以太网没有有效的IP配置
7oppo手机允许安装未知应用在哪里设置 oppo允许安装未知来源
8win10电脑显示无法识别的usb设备怎么办 win10一直提示无法识别的usb设备
9steam加好友错误代码118解决方法
10怎么取消win10开机自检功能 win10关闭自检硬盘
随机推荐
专题工具排名 更多+