導(dǎo)言：有些時候我們需要把文檔中的圖片批量放大或縮小，但是 word 中無法直接批量調(diào)整，這就需要我們使用 vba 來進行操作 。導(dǎo)入 vba 的方法可以參考《如何批量修改word所有圖片的尺寸》 。
我們勾選開發(fā)工具后，進入 vb 編輯器，在右面的代碼窗口中輸入
Sub 一閃流溢 _ 按比例縮放全部圖片()
On Error Resume Next
Application.ScreenUpdating = False
Dim 縮放比例$, 高度, 寬度, 圖片 As InlineShape
Set 文檔 = ActiveDocument.InlineShapes
縮放比例 = InputBox(“請輸入圖片縮放比例” & Chr(13) & “如果讓所有圖片變成 2 倍大小就輸入 2 ” & Chr(13) & “如果讓所有圖片變成 0.3 倍大小 就輸入 0.3”, “來自一閃流溢的提示”)
If 縮放比例 <> “” Then
For Each 圖片 In 文檔
圖片.LockAspectRatio = msoTrue
高度 = 圖片.Height
寬度 = 圖片.Width
圖片.Height = CentimetersToPoints(縮放比例 / 28.35 * 高度)
圖片.Width = CentimetersToPoints(縮放比例 / 28.35 * 寬度)
Next
End If
Application.ScreenUpdating = True
MsgBox (“來自一閃流溢的提示：所有圖片都已經(jīng)按比例調(diào)整完畢”)
End Sub
接下來關(guān)閉 vb 窗口
回到正文后，按 alt+f8，選擇“一閃流溢 _ 按比例縮放全部圖片”這個宏，點擊運行
然后會彈出一個窗口
【word使圖片按比例縮放的方法 word中圖片顯示不全怎么辦】 如果我們想把所有圖片放大 2 倍就寫入 2，如果我們想把所有圖片縮小，就輸入縮小的倍數(shù)，比如我們想把圖片縮小一半，就輸入 0.5
點擊確定后，稍等片刻
接下來等到彈出一個窗口，會提示你全部縮放完畢
然后我們就發(fā)現(xiàn)所有的圖片都已經(jīng)按比例縮放完畢
總結(jié)時間
善用 vba 宏批量操作文檔可以極快地提升工作效率且不易出錯，關(guān)注并給我私信，發(fā)送關(guān)鍵詞“批量縮放圖片”即可 bas 代碼源文件哦！
推薦閱讀
- excel平均值函數(shù)使用技巧 excel表格求平均值怎么操作
- 教你3個好用的制作方法 gif圖片怎么轉(zhuǎn)換成jpg
- word文檔自動生成目錄的方法 word如何手動設(shè)置目錄
- word文檔添加目錄的方法 word文檔如何添加目錄
- 這幾個方法值得你擁有 照片如何轉(zhuǎn)換成word文檔
- 這六個辦法適用所有版本的Word 怎么去掉word多余的空白頁
- word繪制表格步驟圖 word表格怎么刪除多余的格子
- 怎么用手機把照片掃描為pdf電子版 把圖片轉(zhuǎn)換成pdf格式免費
- 圖片壓縮6個非常實用的方法 怎么把圖片壓縮小一點
- word求和平均值最快的方法 word求和公式在哪里