小丹尼的不專業分享

Purpose: 在word中建立一個按鈕,功能為批次縮放圖片size

Step 1

 

Step 2 巨集名稱可自訂,現定為resize

Step 3  貼上scrpit,關掉視窗回到word中

Script如下

    Dim n

    On Error Resume Next

    For n = 1 To ActiveDocument.InlineShapes.Count

    ActiveDocument.InlineShapes(n).Height = ActiveDocument.InlineShapes(n).Height * 0.45

    ActiveDocument.InlineShapes(n).Width = ActiveDocument.InlineShapes(n).Width * 0.45

    Next n

 

Step 4,

Step 5,

Step 6,

Step 7,

Step 8,

Step 9, 使用插入->圖片,然後選去圖片,這邊選了四張大圖會占4個 page

Step 10, 點選工具列上新功能的按鈕

Step 11, 圖片已經被縮放成自己要的倍數(長寬都縮0.45倍)

Step 12, 調整縮放倍數

Step 13, 進入VBA 編輯器調整縮放倍數, 修改紅框處即可改變縮放比例

Step 14, 放大2倍的結果

Step 15 因為這個功能將會對word 檔中的所有圖片做處理,因此建議不使用時要把這選單隱藏起來