嚴祐的Note

～備份～

讓你輕鬆大量修改 Word圖片大小 

小的身為辦公室人員

常常遇到要將多張圖片

縮成特定尺寸而感到困擾

例如常要將某一大型圖片 縮成 3.14*6.1

每次都必須丟圖片後手動將「縮比例限制」解除

然後在手動輸入這六個字

每次都有30幾張圖片要弄

弄起來真的很生氣阿~偏偏word很不親人

也沒有這樣的修改方式給大家用

後來拜託朋友寫出以下'巨集'

提供給同樣有這困擾的朋友一起來使用

先前有在office板以及估狗大神上

找過相關的關鍵字 word 圖片

每次都沒有人回答

小的希望這篇可以造福全世人 獨樂樂不如眾樂樂

況且真是很方便阿~~~~~~~

首先先按>檢視>檢視巨集>之後創建一個巨集名稱可以亂取

然後創建後按>編輯>之後在編輯內貼上以下語法(感謝fbiwbi大大編寫提供)

(裡面的高Height3.42 寬Width 6.1 是我要的尺寸，

各位朋友有想要不同的圖片大小要自己改掉填入喔

---------------------------------

Sub adjustPictSize()
    Dim picWidth As Integer
    Dim picHeight As Integer
    Dim oIshp As InlineShape

    picHeight = 3.42 * 28.32
    picWidth = 6.1 * 28.32

    For Each oIshp In ActiveDocument.InlineShapes
        With oIshp
            .LockAspectRatio = msoFalse
            .Height = picHeight
            .Width = picWidth
        End With
    Next oIshp
End Sub

之後再按儲存，並切關閉語法畫面回到word畫面

之後就依序把多張圖片都丟入此word檔案中

然後同樣來到檢視的地方>按下檢視巨集>執行

咻----------------

圖片就瞬間變成想要的樣子啦 Magic~~~~~~~

爽度增加+++++

~(￣▽￣)~(＿△＿)~(￣▽￣)~(＿△＿)~(￣▽￣)~

好文分享

希望大家在辦公的效率上都能有提升^^

謝謝收看~~~~~