⑴ Word圖片插入技巧：用VBA代碼批量調整圖片尺寸
本文將詳細闡述如何利用VBA代碼在Word文檔中批量調整圖片尺寸，解決圖片尺寸不統一導致的布局問題。
首先，模擬一個常見的工作場景，打開Word文檔，插入圖片文件夾中的圖片。由於圖片尺寸多樣，圖片數量隨頁面不同而變化。此步驟完成後，圖片在文檔中的顯示效果如圖所示。
為了解決批量調整圖片尺寸的問題，我們可以通過F4鍵重復設置圖片大小，但當圖片數量龐大時，這種方式將變得效率低下。因此，VBA代碼的介入顯得尤為重要。
操作步驟如下：點擊「開發工具」選項卡，選擇「Visual Basic」，進入VBE編輯器。在模塊中粘貼以下VBA代碼，執行宏即可實現批量調整圖片尺寸的功能：
以下是VBA代碼內容：
Sub 指定圖片大小() '設置圖片大小
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
ActiveDocument.InlineShapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
ActiveDocument.Shapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設置圖片寬度 300px
Next n
End Sub
該代碼段實現了將文檔中所有圖片尺寸統一為400px高和300px寬。對於需要等比例縮放的場景，可以使用以下代碼：
Sub 等比例縮放圖片() '設置圖片大小
Dim n '圖片個數
Dim picwidth
Dim picheight
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.5 '設置高度為0.5倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.5 '設置寬度為0.5倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.5 '設置高度為0.5倍
ActiveDocument.Shapes(n).Width = picwidth * 0.5 '設置寬度為0.5倍
Next n
End Sub
通過調整代碼中的倍數值，可以實現等比例放大或縮小圖片尺寸，以適應不同布局需求。
通過上述方法，可以高效、便捷地在Word文檔中批量調整圖片尺寸，從而優化文檔的視覺效果和布局，提升工作效率。同時，VBA代碼的靈活性也使得用戶可以根據實際需求進行調整，滿足更多個性化需求。
⑵ word中批量修改圖片大小
小一最近在復習高數，復習材料當然是下載的電子版的了，嘿嘿！不過~~這材料居然~~所有復雜的式子都是圖片形式的，光是這樣小一也就忍了，關鍵高數 嘛~~式子會比較復雜，這些圖片做的又那麼小，根本看不清啊！按住Ctrl+滾輪倒是可以放大，但是這樣不是很方便，而且~~小一還想列印出來呢，怎麼辦 呢？總不能一個圖片一個圖片的修改吧……
聲明：小一下面要說的「批量修改word里的圖片大小」的方法需要使用到宏，所以~~最好對VB有所了解！當然~~這不是必需的，只要跟著小一的圖文教程走，不知道什麼是宏，不知道什麼是VB也可以！
word批量修改圖片大小——固定長寬篇這部分要說的是把word中的所有圖片修改成固定的並且相同的長和寬！
1、打開word，工具－宏－宏（或者直接按Alt+F8）進入宏的界面，如下面所示，輸入一個宏名，宏名自己起，能記住就行！
2、宏名起好了，單擊「創建」進入Visual Basic 編輯器，輸入如下代碼並保存
Sub setpicsize() '設置圖片大小
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
ActiveDocument.InlineShapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
ActiveDocument.Shapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設置圖片寬度 300px
Next n
End Sub
3、返回word，工具－宏－宏（或者直接按Alt+F8），再次進入宏的界面，選擇剛才編輯好的宏，並單擊「運行」按鈕，就可以了！（圖片多時，可能會花一些時間）
word批量修改圖片大小——按比例縮放篇這部分要說的是把word中的所有圖片按比例縮放！
具體操作同上，只是代碼部分稍做修改，代碼如下：
Sub setpicsize() '設置圖片大小
Dim n '圖片個數
Dim picwidth
Dim picheight
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '設置高度為1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '設置寬度為1.1倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 1.1 '設置高度為1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 1.1 '設置寬度為1.1倍
Next n
End Sub
雖然小一的代碼不是好代碼，但確實能解決小一的問題，瞬間就把word文檔里所有圖片放大了1.1倍，各種公式、坐標軸都比原來清楚多了，
自動批量處理Word中圖片，主要完成的工作是：重置所有圖片，對所有圖片做裁剪。代碼很簡單，但值得記錄，以後可以參考。
For Each iShape In ActiveDocument.InlineShapes '1cm = 28.35 pt Dim pic If iShape.Type = wdInlineShapePicture Then iShape.Reset iShape.PictureFormat.CropTop = 1.5 * 28.345 iShape.PictureFormat.CropBottom = 1.5 * 28.345 iShape.PictureFormat.CropLeft = 1.2 * 28.345 iShape.PictureFormat.CropRight = 1.2 * 28.345 End If Next iShape End Sub
⑶ Word中批量修改圖片大小和縮放比例方法
最近小編遇到一個問題：需要將一篇word文檔中的所有圖片全部縮小比例。一張張改太麻煩了。於是從網上搜羅了一下，還真找到了解決辦法。需要注意的地方 就是注意厘米與像素的換算關系。一般情況下1厘米=28px 。這個換算關系其實可以用計算器計算出來。計算公式為圖片改變之後的像素除以改變之後圖片的大小厘米。
固定長寬篇
這部分要說的是把word中的所有圖片修改成固定的並且相同的長和寬！
1、打開word，工具－宏－宏（或者直接按Alt+F8）進入宏的界面，如下面所示，輸入一個宏名，宏名自己起，能記住就行！
2、宏名起好了，單擊「創建」進入Visual Basic 編輯器，輸入如下代碼並保存
Sub setpicsize() '設置圖片大小
Dim n '圖片個數
On Error Resume Next '忽略錯誤
Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
ActiveDocument.InlineShapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度 300px
Nextn
Forn = 1 ToActiveDocument.Shapes.Count 'Shapes類型圖片
ActiveDocument.Shapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設置圖片寬度 300px
Nextn
End Sub
3、返回word，工具－宏－宏（或者直接按Alt+F8），再次進入宏的界面，選擇剛才編輯好的宏，並單擊「運行」按鈕，就可以了！（圖片多時，可能會花一些時間）
按比例縮放篇
這部分要說的是把word中的所有圖片按比例縮放！
具體操作同上，只是代碼部分稍做修改，代碼如下：
Sub setpicsize() '設置圖片大小
Dim n '圖片個數
Dimpicwidth
Dimpicheight
On Error Resume Next '忽略錯誤
For n = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '設置高度為1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '設置寬度為1.1倍
Nextn
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 1.1 '設置高度為1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 1.1 '設置寬度為1.1倍
Nextn
End Sub
若還想使所有圖片居中對齊，可在循環中加入下面的語句：
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter
『左對齊：wdAlignParagraphLeft
注意：這里的Shapes（InlineShapes）不僅僅是指圖片，也包含其它的，自選圖形、任意多邊形、OLE 對象、ActiveX 控制項、圖片等。
⑷ 如何批量調整word中插入的圖片大小
排版文檔時，批量調整Word中插入的圖片大小，可採用以下幾種方法。
### 方法1：偽 · 圖片格式刷，使用【重做】功能
1. **第一步：** 首先修改格式。
2. **第二步：** 選中其他圖片，使用【Ctrl Y】或點擊左上角的【重復】，重復點其他圖片。
### 方法2：使用宏代碼
1. **第一步：** 按【ATL + 8】調出宏。
2. **第二步：** 輸入宏名並【創建】。
3. **代碼示例：**
- **代碼1**：按照固定大小縮放，不鎖定縱橫比。
- **代碼2**：按照高（寬）設置尺寸，鎖定縱橫比。
- **代碼3**：按照原尺寸進行比例縮放，鎖定縱橫比。
- **代碼4**：嵌入式圖片改為非嵌入式。
4. **第四步：** 保存宏並【Ctrl + s】，執行【F5】。
### 方法3：使用在線圖片工具，批量裁剪後插入
1. **推薦工具：** 批量在線修改圖片尺寸大小工具-度度網。
2. **優點：** 免注冊、免費下載，支持批量剪裁圖片。
3. **注意：** 對於重要圖片，建議使用Word本地修改，以保證安全性。
### 方法4：對於未插入圖片的批量處理
1. **第一步：** 點【文件】-【選項】-【高級】-【將圖片插入/粘貼為】-選擇【四周型】。
2. **第二步：** 調出選擇多個對象，【自定義功能區】添加此功能。
3. **第三步：** 粘貼圖片，此時圖片均為四周型。
4. **第四步：** 另存為doc格式，以便使用選擇多個對象功能。
5. **第五步：** 設置大小與對齊，【格式】-【大小】，【格式】-【其他布局選項】。
這些方法可有效實現Word文檔中圖片的批量調整大小需求。
⑸ word在用宏批量設置圖片大小
最近發現，以前存了很多圖片在word，但圖片的很大，有的很小，規格都不一樣，堆在文檔裡面很難看，為了美觀，下面給大家分享Word中利用宏批量設置圖片大小的操作方法，歡迎大家來到學習。
Word用宏批量設置圖片大小的方法
大家看看我是怎麼樣利用宏批量修改word中所有圖片大小，
先打開存有圖片的word。
在打開的文檔中，選擇在「工具」菜單中選擇「宏」–「宏」。
隨後彈出「宏」對話框，在宏名中輸入setpicsize。
宏名起好了，單擊「創建」按鈕進入Visual Basic 編輯器，輸入如下代碼
Sub setpicsize() '設置圖片大小Dim n '圖片個數On Error Resume Next '忽略錯誤For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片ActiveDocument.InlineShapes(n).Height = 400 '設置圖片高度為 400pxActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片ActiveDocument.Shapes(n).Height = 400 '設置圖片高度為 400pxActiveDocument.Shapes(n).Width = 300 '設置圖片寬度 300pxNext nEnd Sub
關閉入Visual Basic 編輯器，返回word，重新選擇「工具」–「宏」–「宏」(或者直接按Alt+F8)，再次進入宏的界面，在彈出的宏名中選擇"setpicsize",最後點擊「運行」—確認即可快速地批量修改word中所有圖片大小，注意這里把圖片大小都修改成Height = 400，Width = 300，這個規格大家可以需要改變的~