WPS文檔中批量修改圖片尺寸
近期使用WPS整理圖片比較頻繁，在使用過程中發現出現以下問題：
1.多張圖片\”擠\”在一張頁面上，對于圖片較多的文檔，相當不方便 。
2.無法同時選中多張圖片，相當不方便批量修改圖片尺寸 。
3.橫版圖片與豎版圖片的尺寸不同，不方便修改圖片尺寸 。
通過查找、學習、摸索，采用如下辦法可以很好的解決上述問題，極大地提高了排版效率，方法如下：
1.打開WPS，\”文件\” \”選項\” \”編輯\”將圖片的插入方式改為\”嵌入\”型，然后點擊\”確定\” 。修改圖片的插入類型后，可以防止多張圖片\”擠\”在一張頁面上 。
文章插圖
文章插圖
文章插圖
文章插圖
2.在主頁面中點擊\”插入\”，\”本地圖片\”，然后選擇需要插入的圖片 。
文章插圖
文章插圖
文章插圖
文章插圖
3.插入后的效果如下，多張圖片有橫版的，有豎版的，而且尺寸需要調事 。
文章插圖
文章插圖
4.插入完圖片后，別忘了保存一下 。
5.點擊打開\”開發工具\”，\”VB編輯器\”，點擊\”插入\”\”模塊\” 。
文章插圖
文章插圖
文章插圖
文章插圖
6.在打開的模塊窗口，將下列VBA代碼復制進去 。代碼的意思是，先判斷圖片是橫版還是豎版，如果是橫版，則設置圖片的寬度為120mm，否則圖片是豎版，豎版圖片的寬度尺寸設置為60mm，后面的2.835為像素與毫米的轉換單位，圖片的尺寸可以根據編輯的需要進行調整 。
Sub 批量調整圖片尺寸()
Dim i
On Error Resume Next
For i = 1 To ActiveDocument.InlineShapes.Count
If ActiveDocument.InlineShapes(i).Width > ActiveDocument.InlineShapes(i).Height Then\’如果圖片的寬度大于高度，則圖片為橫版，
ActiveDocument.InlineShapes(i).Width = 120 * 2.835 \’設置寬度，單位為mm
Else
ActiveDocument.InlineShapes(i).Width = 60 * 2.835 \’否則，圖片為豎版，設置寬度，單位為mm
End If
Next
End Sub
文章插圖
文章插圖
7.然后回到WPS文檔窗口，點擊\”開發工具\”，\”宏\”，在打開的宏選擇框內選擇剛才的宏名稱，點擊\”運行\” 。
文章插圖
文章插圖
8.運行之后的效果如下圖，豎版圖片的寬度尺寸大約60mm，橫版圖片的寬度大約是120mm 。
9.調整好尺寸的圖片再進行編輯則相當方便 。
【wps里如何批量調整全部圖片尺寸 wps圖片批量修改尺寸的方法】#WPS#,#批量#，#圖片#，#VBA#,
推薦閱讀
- 個人學歷查詢在哪里查 全國個人學歷查詢學信網
- 2023淄博張店區甲流疫苗接種點 2023淄博張店區甲流疫苗接種點在哪里
- 2023淄博桓臺縣流感疫苗接種點 2023淄博桓臺縣流感疫苗接種點在哪里
- 2023淄博經開區流感疫苗接種點在哪里 2023淄博經開區流感疫苗接種點
- 張杰廣州演唱會在哪里 2023張杰演唱會廣州加場時間是幾點
- 杭州法喜寺白玉蘭在哪里？ 杭州法喜寺電話號碼
- 杭州法喜寺白玉蘭花期有多長 法喜寺玉蘭花在哪里
- 如何選購電腦筆記本 2022年比較值得選購的全能本機型推薦
- 阿里巴巴新手如何運營 阿里巴巴怎么運營
- 如何關閉每月自動扣款 手機自動扣款怎么取消