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，這個規格大家可以需要改變的~

『貳』 word中利用宏批量刪除固定大小的圖片

word文檔批量處理大師軟體是這方面的專業軟體，功能多、實用，並且實用方便，你的要求僅僅是該軟體的一個小功能，很簡單的，超強，推薦！

『叄』 如何批量修改word文檔中圖片的大小

一次性調節word所有圖片方法如下：

打開WORD，在」工具「菜單下，選擇」選項「命令，在」選項「窗口中，」編輯」選項卡下，將插入圖片的格式選擇為「四周型」。在「插入」菜單中選擇「圖片」/「來自文件」，在「插入圖片「對話框中選擇要插入的圖片。

然後在「繪圖」工具欄中的「添加或刪除按鈕」中選擇「選中多個對象」，使用「選中多個對象」，將所有插入的圖片全部選中。雙擊任意一圖片，在彈出的對余雹話框中，就可以統一批量設置了，完成。

在word中，默認插入的嵌入式圖片是不能批量統一設置，只有將默認修改為四周型後，才可以批差毀皮量修改圖片版式或大小。

用宏命令虛差最省心：

代碼1如下：

Sub setpicsize()

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

iSha.LockAspectRatio = msoFalse '不鎖定縱橫比

iSha.Width = CentimetersToPoints(5) '寬5CM

iSha.Height = CentimetersToPoints(5) '高5CM

End If

Next

End Sub

代碼2如下：

Sub setpicsize()

Dim j '計數圖片個數

For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes

ActiveDocument.InlineShapes(j).Height = 300 '設置高度10.58cm

ActiveDocument.InlineShapes(j).Width = 510 '設置寬度17.99cm

Next j

End Sub

『肆』 如何通過「宏」批量完成word中所有圖片大小的修改並且讓圖片安排原來順序排列

1、Alt+F8調出宏編輯窗口 x0dx0a2、點創建按鈕，創建新宏，setpicsize,內容如下： x0dx0aSub setpicsize() x0dx0a'設置圖片大小 x0dx0a' 宏在 2008-3-31 由 hero_thm 錄制 x0dx0a' x0dx0aDim j '計數圖片個數 x0dx0aFor j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes x0dx0aActiveDocument.InlineShapes(j).Height = 362 '設置高度 x0dx0aActiveDocument.InlineShapes(j).Width = 481.87 '設置寬度 x0dx0aNext j x0dx0ax0dx0aEnd Sub x0dx0a3、保存退出，點運行setpicsize宏，word中所有的圖片統一調整為寬17cm，高12.77cmx0dx0aSub setpicsize()x0dx0a'設置圖片大小x0dx0a' 宏在 2008-3-31 由 hero_thm 錄制x0dx0a'x0dx0aDim j '計數圖片個數x0dx0aFor j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapesx0dx0aIf ActiveDocument.InlineShapes(j).Width > 480 Thenx0dx0aActiveDocument.InlineShapes(j).Width = 400 '設置寬度x0dx0aEnd Ifx0dx0aNext jx0dx0aEnd Sub