Word宏设置图片大小
发表于:2025-02-19 作者:千家信息网编辑
千家信息网最后更新 2025年02月19日,Word宏设置图片大小1. Alt+F8, Create 一个Macro2. 输入Macro名,进入编辑---按比例缩小大量图片Sub alex() '设置图片大小Dim n '图片个数On Erro
千家信息网最后更新 2025年02月19日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安全错误
数据库的锁怎样保障安全
数据库有哪些系统函数
新展公司5g网络技术
广州安卓软件开发价格表
linux 服务器 镜像
数据库意向锁的概念
ace元件数据库制造商
华为5g核心网络安全吗
理性维护网络安全
erp管理系统什么服务器
龙岗区软件开发培训学校
奔驰软件开发工程师
小米账号连接服务器失败
华为网络安全红线3.0
数据库生成软件
x5675配服务器内存条
网络安全法违法事件案例
mcgs触摸屏与数据库
杭州网会视频会议服务器怎么设置
tcp ip网络安全测试
换塔服务器对应的地区
数据库测试仪器
网络安全等级提升
数据库范式中候选码怎么定
t3数据库字典
进入数据库是为什么要输入密码
建筑工程软件开发
大学网络技术就业前景
手机出现服务器连接出错
厦门申讯网络技术有限公司
a6企业管理无法连接服务器