在word中如何批量修改圖片的尺寸
2023-03-09 15:58 作者:levicebear | 我要投稿
?
00:57
?要是在下面的Project新建模塊就不能在其他Word中找到這個(gè)宏哈哈哈。新建的模塊拖到Normal里就可以解決啦！
導(dǎo)入/導(dǎo)出宏文件 .bas
快捷鍵 alt Fn F11 打開宏代碼
?
02:50
?- 嵌入型圖片
Sub 批量修改圖片尺寸()
For Each 圖片 In ActiveDocument.InlineShapes
（圖片.LockAspectRatio=0 取消縱橫比）
圖片.Height = 5 * 72 / 2.54 （為5厘米，默認(rèn)是磅）
圖片.Width = 10 * 72 / 2.54
Next
End Sub
- 非嵌入型圖片 代碼刪掉Inline
Sub 批量修改非嵌入圖片尺寸()
For Each 圖片 In ActiveDocument.Shapes
?
04:40
??
05:47
?- 修改部分圖片 ?07:06?
Sub 批量修改選中的圖片尺寸()
For Each 圖片 In selection.InlineShapes
- 通過(guò)對(duì)話框輸入高度寬度
Sub 批量修改圖片尺寸()
高度=InputBox("請(qǐng)輸入高度")
寬度=InputBox("請(qǐng)輸入寬度")
縱橫比=InputBox("請(qǐng)輸入是否鎖定縱橫比，1是鎖定，0是解除")
For Each 圖片 In ActiveDocument.InlineShapes
圖片.LockAspectRatio=縱橫比
圖片.Height = 高度 * 72 / 2.54
圖片.Width = 寬度 * 72 / 2.54
Next
End Sub
?
10:30
?MsgBox(”來(lái)自一閃流溢的提示：所有圖片的尺寸已經(jīng)修改完成”)
標(biāo)簽：
