巧用Word里的宏将多张照片缩进到同一张A4纸
时间:2023-11-07 18:28:59
为了节约纸张需要将多张照片缩进到同一张A4纸上,但不知道怎么操作,下面小编为大家分享巧用Word里的宏将多张照片缩进到同一张A4纸方法,一起来学习吧
想把多张照片缩进到同一张A4纸上?当然不难,一点一点手动调整而已——想更简单?有办法啊,用好Word里的宏就可以了,点一下就能完成自动缩放,方便至极。
首先,新建一个Word文档,切换选项卡到“布局”,点击图中标示荧光黄的位置打开页面设置。
在页面设置中,设置页编剧商家左右全部为0.5厘米,纸张方向改为横向。
切换Word选项卡到插入,选择要插入的照片文件,多选一次性插入。
这时,切换到选项卡到视图一项,点击右侧的“宏”。
在弹出界面中,随便输入一个宏名称,比如“打印”,然后点击创建。
重点来了!将一下内容复制到弹出的Microsoft Visual Basic中,注意其中Height = 216 * 0.7、Width = 300 * 0.8中的数值,如果后续执行时不能缩进到同一页面下,可以调整这部分的数字(登录PC版查看历史消息找到本文,复制这段宏命令)。
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
With ActiveDocument.InlineShapes(i)
.Height = 238 * 0.7
.Width = 315 * 0.8
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderTop).LineWidth = wdLineWidth050pt
.Borders(wdBorderTop).Color = wdColorAutomatic
End With
Next i
编辑完成后关闭,回到Word界面,点击“宏”下拉菜单(倒三角),找到“查看宏”并单击运行,Word就会进行自动的缩放排序,多张图片很容易就缩进到一页内了,注意前面讲的,如果不能,记得调整宏中Height、Width的数值。
按下Ctrl+P调出打印页面,选择打印即可,一张A4规格的纸张就能缩进多张图片,是不是很神奇?这就是宏的作用,通过宏命令,可以将很多需要人手工一步一步调整的方法大大简化哦!
以上就是巧用Word里的宏将多张照片缩进到同一张A4纸方法介绍,操作很简单的,大家按照上面步骤进行操作即可,希望能对大家有所帮助!
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win7如何批量安装字体?一个一个地安装太慢
![](https://img.aspxhome.com/file/2023/29/a256577_0s.jpg)
WPS表格技巧—自由移动行列
Win8.1卸载程序后控制面板的残留项目如何清除
![](https://img.aspxhome.com/file/2023/29/a252060_0s.jpg)
墨迹天气怎么查看24小时天气?墨迹天气查看24小时天气的方法
![](https://img.aspxhome.com/file/2023/8/a334741_0s.jpg)
电脑鼠标右键菜单选项太多了的三种解决方法
![](https://img.aspxhome.com/file/2023/30/a264034_0s.png)
用户打开多个Excel工作表都在一个窗口中
PPT怎么将布尔运算添加到选项卡?
![](https://img.aspxhome.com/file/2023/10/a349696_0s.jpg )
MacOS下类似于Win上ACDSee的看图软件推荐
![](https://img.aspxhome.com/file/2023/6/a211566_0s.jpeg)
如何在wps中设置文字环绕图片效果
新款 iPad Pro有哪些亮点?
![](https://img.aspxhome.com/file/2023/1/46111_0s.png)
Win10系统有哪些优点?升级Win10有什么好处?
![](https://img.aspxhome.com/file/2023/26/a226200_0s.jpg)
笔记本显卡和台式显卡有什么区别?笔记本显卡和台式显卡区别介绍
![](https://img.aspxhome.com/file/2023/6/a323622_0s.jpg)
如何禁用Windows 10的操作中心
![](https://img.aspxhome.com/file/2023/30/a263206_0s.jpg)
WPS文字中怎么设置字体的大小
![](https://img.aspxhome.com/file/2023/3/a170883_0s.jpg)
Win7用户有必要升级吗?Win10预览版硬件性能测试(很全面)
![](https://img.aspxhome.com/file/2023/29/a253306_0s.jpg)
Win10右键菜单设置如何调整菜单宽度?Win10右键菜单设置调整菜单宽度的方法
![](https://img.aspxhome.com/file/2023/26/a223691_0s.jpg)
Xp系统如何把时间(星期、年月日)调出来
![](https://img.aspxhome.com/file/2023/29/a256787_0s.jpg)
Win7电脑怎么进入到安全模式?
![](https://img.aspxhome.com/file/2023/26/a228420_0s.png)
excel中lookup函数的使用教程
Win10预览版Build 9860再推补丁,修复电源/睡眠问题
![](https://img.aspxhome.com/file/2023/29/a253230_0s.jpg)