Word宏设置图片大小
发表于:2025-02-04 作者:千家信息网编辑
千家信息网最后更新 2025年02月04日,Word宏设置图片大小1. Alt+F8, Create 一个Macro2. 输入Macro名,进入编辑---按比例缩小大量图片Sub alex() '设置图片大小Dim n '图片个数On Erro
千家信息网最后更新 2025年02月04日Word宏设置图片大小Word宏设置图片大小
1. Alt+F8, Create 一个Macro
2. 输入Macro名,进入编辑
---按比例缩小大量图片
Sub alex() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.5 '设置高度为0.5倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍
ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
Next n
End Sub
---图片大小设置成绝对值 1cm=28px
Sub alex() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = 280 '设置高度为280px
ActiveDocument.InlineShapes(n).Width = 364 '设置宽度为364px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = 280 '设置高度为280px
ActiveDocument.Shapes(n).Width = 364 '设置宽度为364px
Next n
End Sub
3. 保持,再次进入原来的word,alt-f8 run这个宏
1. Alt+F8, Create 一个Macro
2. 输入Macro名,进入编辑
---按比例缩小大量图片
Sub alex() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.5 '设置高度为0.5倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍
ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
Next n
End Sub
---图片大小设置成绝对值 1cm=28px
Sub alex() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = 280 '设置高度为280px
ActiveDocument.InlineShapes(n).Width = 364 '设置宽度为364px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = 280 '设置高度为280px
ActiveDocument.Shapes(n).Width = 364 '设置宽度为364px
Next n
End Sub
3. 保持,再次进入原来的word,alt-f8 run这个宏
图片
大小
宽度
类型
高度
个数
错误
再次
比例
绝对值
输入
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
互联网平台的名字科技公益风
游戏数据库合并工具
潍坊资产软件开发价格
保密员负责网络安全保密吗
数据库软件开发的过程
数据库技术课程设计注意事项
信息系统审计数据库
电脑服务器出现错误什么原因
公安机关网络安全校园演讲稿
科学网络技术的特点
访问控制在网络安全的原理
周小学生家庭教育与网络安全
大话手游情系今生有几个服务器
上海质量软件开发推广
都市网络技术合作
巴中市网络安全教育讲座
渭南网络技术销售价格
关于网络安全的画简单又美丽
大安市网络安全
揭阳市网络安全宣传周
小学综合实践活动网络安全
被迫站在网络技术鸿沟的另一边
仙桃软件开发app制作
网络技术员学什么技能好
基于macos软件开发是什么
石家庄哪家软件开发好
数据库中 表示什么
什么是服务器控制管理器
网络安全需要三不依赖
汕头教育软件开发联系方式