一、變更圖片尺寸
利用巨集協助將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
說明:
- 圖片依尺寸縮放,其中Width = 圖片寬度 ;Height = 圖片高度
- 因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