利用VBA將word文件中的所有圖片更改尺寸

利用VBA將word文件中的所有圖片更改尺寸。

Sub ResizeImage()

    Dim shape As InlineShape

    For Each shape In Selection.InlineShapes
        
        'This doesn't work
        'shape.LockAspectRatio = msoTrue

        shape.ScaleWidth = 50
        shape.ScaleHeight = 50
    Next
End Sub

參考這個網站。