1. 程式人生 > 其它 >WORD圖片的批量匯入批量修改word圖片大小和壓縮圖片方法

WORD圖片的批量匯入批量修改word圖片大小和壓縮圖片方法

實現在WORD圖片的批量匯入:如果圖片都存在同一個檔案
夾中,那麼我們可以按住shift鍵批量插入圖片~
一、批量修改word圖片大小
1、選單——“工具”——“巨集”——“巨集”,也可以用快捷鍵ALT+F8調出,
2、在“巨集”視窗中,“巨集名”改成“批量調整圖片大小”



再點“編輯”

複製、貼上以下程式碼:

Sub
批量調整圖片大小()
'
'
調整圖片大小 Macro
'
巨集在 2011-5-22 User 建立
'

Dim iShape As InlineShape, WidthNum As Long
For Each iShape In ActiveDocument.InlineShapes
With iShape
WidthNum = .Width
.Width = 13 * 28.35
.Height = (13 * 28.35 / WidthNum) * .Height
End With
Next

'

注:1釐米=28.35磅值
'
以上為同比例縮放的近似演算法

End Sub



再點工具欄裡的“儲存”,儲存修改。



3、選擇巨集名——執行,就可以自動批量修改圖片大小。



二、批量壓縮word圖片大小
1、選中某一張圖片——右鍵“設定圖片格式”——“圖片”——“壓縮”——




選擇上面的應用於“文件中的所有圖片”。