利用VBA批次設定圖片

一、變更圖片尺寸

利用巨集協助將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

二、圖片加框

利用巨集協助將Word文件內將圖片加框

Sub 圖片加框()
Dim tupian As InlineShape

Application.ScreenUpdating = True

For Each tupian In ActiveDocument.InlineShapes

    With tupian.Borders
        .OutsideLineStyle = wdLineStyleSingle
        .OutsideColorIndex = wdBlue
        .OutsideLineWidth = wdLineWidth150pt
    End With

Next

Application.ScreenUpdating = False

End Sub