『壹』 word中怎樣一次性調整所有圖片大小
新建一個宏（名稱自定，如「全部圖片」），編輯內容。如下：
sub
選所有圖片()
activedocument.shapes.selectall
end
sub
在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
5
關閉入Visual Basic 編輯器，返回word，重新選擇「工具」--「宏」--「宏」（或者直接按Alt+F8），再次進入宏的界面，在彈出的宏名中選擇"setpicsize",最後點擊「運行」---確認即可快速地批量修改word中所有圖片大小，注意這里把圖片大小都修改成Height = 400，Width = 300，這個規格大家可以需要改變的~~~~~~~~~~~
『叄』 怎麼批量把word中的圖片的大小都縮小
word中的圖片的大小都縮小是利用word中的工具：宏功能，對圖片進行寬高設置，等比例縮放操作。具體的方法如下：
1.具體操作同上：打開word，工具－宏－宏（或者直接按Alt+F8）進入宏的界面，如下面所示；
注意事項：
1.需要注意的地方 就是注意厘米與像素的換算關系。一般情況下1厘米=28px 。這個換算關系其實可以用計算器計算出來。計算公式為圖片改變之後的像素除以改變之後圖片的大小厘米。
2.這里的Shapes（InlineShapes）不僅僅是指圖片，也包含其它的，自選圖形、任意多邊形、OLE 對象、ActiveX 控制項、圖片等。
『肆』 如何通過「宏」批量完成word中所有圖片大小的修改並且讓圖片安排原來順序排列
1、Alt+F8調出宏編輯窗口
2、點創建按鈕，創建新宏，setpicsize,內容如下：
Sub setpicsize()
'設置圖片大小
' 宏在 2008-3-31 由 hero_thm 錄制
'
Dim j '計數圖片個數
For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes
ActiveDocument.InlineShapes(j).Height = 362 '設置高度
ActiveDocument.InlineShapes(j).Width = 481.87 '設置寬度
Next j
End Sub
3、保存退出，點運行setpicsize宏，word中所有的圖片統一調整為寬17cm，高12.77cm
Sub setpicsize()
'設置圖片大小
' 宏在 2008-3-31 由 hero_thm 錄制
'
Dim j '計數圖片個數
For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes
If ActiveDocument.InlineShapes(j).Width > 480 Then
ActiveDocument.InlineShapes(j).Width = 400 '設置寬度
End If
Next j
End Sub
『伍』 如何一鍵設置word所有圖片大小
打開Word文檔後，滑鼠右鍵點擊第一張圖片，選擇「大小和位置」。
『陸』 Wps怎麼一次性修改所有圖片的大小
下面是我自己用的一個宏，供參考。
Sub a批量調整圖片大小()
Dim picture_total%
A = InputBox("固定高度：H" & Chr(10) & "固定寬度：W" & Chr(10) & "比例縮放：S", "調整圖片大小", "H")
A = UCase(A)
picture_total = ActiveSheet.Shapes.Count
For i = 1 To picture_total
Select Case A
Case "H"
If i = 1 Then h = InputBox("請輸入圖片高度：", "提示：", "200")
ActiveSheet.Shapes(i).Height = h
If i = 1 Then c = MsgBox("是否同一水平高度？", vbOKCancel, "提示：")
' SendKeys "{TAB}"
If c = vbOK Then
If i = 1 Then t = InputBox("請輸入圖片上端位置：", "提示：", "200")
ActiveSheet.Shapes(i).Top = t
End If
Case "W"
If i = 1 Then w = InputBox("請輸入圖片寬度：", "提示：", "200")
ActiveSheet.Shapes(i).Width = w
Case "S"
If i = 1 Then s_old = ActiveSheet.Shapes(i).Height
If i = 1 Then s = InputBox("請輸入縮放比例(100%)：", "提示：", "100")
ActiveSheet.Shapes(i).Height = s_old * s / 100
Case Else
b = MsgBox("您輸入的字元不正確！" & Chr(10) & "即將退出程序！", vbOKOnly, "警告！")
Exit Sub
End Select
Next
End Sub