WORD圖片的批量匯入批量修改word圖片大小和壓縮圖片方法
阿新 • • 發佈:2021-08-28
實現在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
'
' 以上為同比例縮放的近似演算法
End Sub
再點工具欄裡的“儲存”,儲存修改。
3、選擇巨集名——執行,就可以自動批量修改圖片大小。
二、批量壓縮word圖片大小
1、選中某一張圖片——右鍵“設定圖片格式”——“圖片”——“壓縮”——
選擇上面的應用於“文件中的所有圖片”。