word2013怎樣批量重設圖片和大小？

就是這個功能。一篇文檔中有N多圖片大小不一，我也不需要調整到固定的長寬，每次按下這個就可以使畫面剛剛好，但是圖片太多就算F4也不好使，求一方法可以批量操作的，謝謝。

考拉來了~

說到word批量調整圖片大小這個事，真是頭大，我也找了很多方法，都有這樣那樣的問題，此處分享一個一勞永逸的辦法——宏。

點擊視圖，宏，查看宏，任意輸入一個宏名，創建，

Sub 批量圖片大小()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse "不鎖定縱橫比
iSha.Width = CentimetersToPoints(21) "寬21CM
iSha.Height = CentimetersToPoints(29.7) "高29.7CM
End If
Next
End Sub


我這裡設置的是A4頁面的全頁面大小，不鎖定縱橫比，你自己可以根據需要修改~

保存，回到word界面，點擊宏，查看宏，運行。