word中圖片批量統一大小圖文的操作方法
word中圖片批量統一大小圖文的操作方法
從網上下載的圖片一般都是大小不一致的。在這種情況下，可以通過一些看圖軟件來統一圖片的大小。下面，告訴大家一個使用簡單工具快速批量調整圖片大小的方法。這個工具就是大家經常使用的office word。今天，學習啦小編就教大家在word中圖片批量統一大小圖文的操作方法。
word中圖片批量統一大小圖文的操作步驟如下：
Sub setpicsize() '設置圖片大小
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
ActiveDocument.InlineShapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
ActiveDocument.Shapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設置圖片寬度 300px
Next n
End Sub
1. 打開要統一圖片大小的 Word 文檔，點擊“工具”-“宏”-“Visual Biscal 編輯器。
2. 插入 normal 工程“模塊”。
3. 在“模塊”中粘貼上面的代碼。
4. 保存，返回你要統一圖片大小的 Word 文檔。運行“工具”-“宏”-"宏命令"。
看一下結果，是不是你想要的統一圖片大小。
我用的兩張圖一個大一個小，統一后 400*300 還是很大，放在兩個頁面上，上面是25%的縮略圖，至此實現了統一大小的目標，如果你想要其它的大小，只需按代碼里的說明更改一下長寬數值即可。
按比例縮放的方法和上面的是一樣的，只是代碼變化一下，過程就不熬述。VBA 代碼如下：
Sub setpicsize() '設置圖片大小
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
ActiveDocument.InlineShapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
ActiveDocument.Shapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設置圖片寬度 300px
Next n
End Sub
word中圖片批量統一大小圖文的操作方法相關文章：