利用巨集協助將Word文件內變更圖片尺寸大小

S1:新增巨集

S2:巨集語法如下:

Sub setimgsize() '設定巨集名稱,目的變更圖片尺寸

Dim n '定義圖片數量N

On Error Resume Next '忽略錯誤

For n = 1 To ActiveDocument.InlineShapes.Count			'InlineShapes 類型圖片
  ActiveDocument.InlineShapes(n).Width = 141.75		'設定圖片寬度為 5cm
  ActiveDocument.InlineShapes(n).Height = 141.75		'設定圖片高度為 5cm
Next n

End Sub

說明:

  1. 圖片依尺寸縮放,其中Width = 圖片寬度 ;Height = 圖片高度
  2. 因Word中的尺寸單位是(cm),巨集設置的數據單位是px(像素),其中:1cm等於28.35px。所以若圖片寬度設置的5cm,故5*28.35=141.75