批次在word放入圖片自動縮小

許多人都有一個經驗，
那就是在把圖片放到word裡的時候，
常常會有圖片大太不聽使喚的狀況。

在網路上有很多方法，都是溫和地解決，
但是大家知道的，溫和是解決不了問題的，
要解決問題，就是要暴力!!!!!!

溫和方法一：用F4
http://www.techbang.com/posts/41733-how-to-quickly-change-the-picture-size-in-the-word

就是你調整了一張圖片後，利用重複的功能，
再點選下一張圖片，然後再按F4。

如果只有少數幾張，這是可以做到的。

======

溫和方法二：用表格控制
http://blog.xuite.net/haoming/mypoint/51782896

這個方法說真的也很棒，但是有一個限制，

你只能用"插入圖片"的方式把照片放進來，
但是如果是從外部用"複製" "貼上"，
馬上就GG了。

總不能要我把來源的圖片都一張一張先另存新檔吧，
如果只有圖片就算了，如果還有文字穿插......

這方法完全就不行。

======

暴力王道：直接用巨集改每一張圖片
https://www.ptt.cc/bbs/Office/M.1382671008.A.61B.html

這只能說真的是感謝達人了！！
如此一來，我管你甚麼東西，

我就是給他按下去，全部都給我乖乖排好！！

為了避免以後這麼好的方法不見了，
原諒我把巨集程式碼 copy past 吧~

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

1. 點選檢視 -> 巨集 ，記得要點上面的圖案，不是下面的箭頭

2. 接著稱隨便打，然後點建立，但是123是錯誤示範，第一個字要英文

3. 然後把上面那段複製貼上在程式碼區，然後儲存

4. 接著只要你把圖片拉進來，重複第一個步驟，選剛剛的巨集，然後執行

大功告成！