[分享] 讓你輕鬆大量修改 Word圖片大小

[ijn123g (小花)]

小的身為辦公室人員

常常遇到要將多張圖片

縮成特定尺寸而感到困擾

例如常要將某一大型圖片 縮成 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~~~~~~~


爽度增加+++++


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


好文分享

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


謝謝收看~~~~~











--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 122.146.56.168
※ ijn123g:轉錄至看板 share                                        10/25 11:19
推 akjk:感謝分享!  今天幫了很大的忙XD
推 kakayo: 我用這功能很久了，辦公用要一直需要圖片，謝謝有分享這麼
→ kakayo: 麼好用的巨集，之前也是在網路上遍尋不到，ptt真神人