少为人知的Word自动排版:3秒将1000张图片对齐、固定尺寸

请问大家:

如果你的Word文档有成百上千张图片,你有什么方法将它们对齐、固定尺寸?

正常想法肯定是先全选图片,然后设置尺寸、对齐是吗?可惜了,当你全选图片的时候,要么会把文字也选了,要么会发现没有图片高度的设置了。

少为人知的Word自动排版:3秒将1000张图片对齐、固定尺寸

 

所以咋办呢?怎样才可以快速让这些图片整整齐齐、尺寸统一呀?嘿嘿~其实也不难,下面职场老鸟就教你一步步操作吧:

1、按快捷键【Alt+F8】出现VBA窗口,输入宏名并创建。

少为人知的Word自动排版:3秒将1000张图片对齐、固定尺寸

 

2、接下来进入VBA编辑窗口,将以下代码复制进去:

Sub img() '设置图片大小
Dim n ' 图片个数
On Error Resume Next ' 忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
 ActiveDocument.InlineShapes(n).Select
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 居中
 ActiveDocument.InlineShapes(n).Width = 28.345 * 14 '设置图片宽度14厘米
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
 ActiveDocument.Shapes(n).Select
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 居中
 ActiveDocument.Shapes(n).Width = 28.345 * 14 '设置图片宽度14厘米
Next n
End Sub

需要注意的是:数字那里是可以自己更改的。我这里设置的是14厘米的图片宽度,高度它会自己适配,不用设置。

3、编辑完代码后保存,回到Word文档界面,再按一次【Alt + F8】,这次选择运行代码。

少为人知的Word自动排版:3秒将1000张图片对齐、固定尺寸

 

图片瞬间就按照你设置的尺寸自动统一对齐啦!用这种方法多少张图片都能一键搞定。

好啦,今天的Word排版教程就到这。你还有比这更快的排版方法吗?

转载于:https://my.oschina.net/u/3907957/blog/2248855

  • 1
    点赞
  • 21
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值