Ⅰ word宏代碼--選中的圖片修改尺寸 代碼，不是批量處理
1. VB語言中對圖片大小的設置是以原圖的長寬等比在縮放，統一設置時默認優先對齊所有圖片的「寬度」。
2. ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter '設置圖片居中 可以讓圖片居中，Left、Right可以分別設置左對齊、右對齊。
3. 全文如果有「手動換行符」↓（代碼是^l），設置某一部分居中時會影響漆上下部分的居中與否，因而，如果需要只對圖片進行居中，則需先將全文中的↓替換成「段落標記符」（常規回車鍵，代碼是^p）。
4. 這里的Shapes（InlineShapes）不僅僅是指圖片，也包含其它的，自選圖形、任意多邊形、OLE 對象、ActiveX 控制項、圖片等。
5. InlineShapes類型圖片與Shapes類型圖片的區別有待研究。
按比例縮放篇代碼
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 * 0.6 '設置高度為0.6倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.6 '設置寬度為0.6倍 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.6 '設置高度為0.6倍 ActiveDocument.Shapes(n).Width = picwidth * 0.6 '設置寬度為0.6倍 Next n End Sub
Ⅱ 用宏批量定位word中圖片位置
幫你稍微修改了一下，使所有嵌入式圖片居中。
對於所有圖片，可以用ActiveDocument.Shapes.Count
注意：這里的Shapes（InlineShapes）不僅僅是指圖片，也包含其它的，自選圖形、任意多邊形、OLE 對象、ActiveX 控制項、圖片等。
Sub setpicsize()
'設置圖片大小
' 宏在 2008-3-31 由 hero_thm 錄制
'
Dim j '計數圖片個數
For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes
ActiveDocument.InlineShapes(j).Select '選中圖片
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '圖片居中；wdAlignParagraphLeft左對齊
Next j
End Sub
上面，我補充的語句，其實也是錄制宏的方式，生成的。（先選中圖片，再點居中按鈕）
另外，學習宏，多看看Word自帶的幫助文檔吧。
==========2008-4-16========
Sub setpicsize()
'
Dim j '計數圖片個數
For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型也可以為shapes
ActiveDocument.InlineShapes(j).Select '選中圖片
'ActiveDocument.InlineShapes(j).Range.Paragraphs(1).Range.Select '上一行不行，用這個
With Selection.ParagraphFormat '所選段落的格式
.Alignment = wdAlignParagraphCenter '圖片居中
.LeftIndent = 0 '左縮進磅數
.RightIndent = 0 '右縮進磅數
.FirstLineIndent = 0 '首行縮進磅數
.CharacterUnitLeftIndent = 0 '左縮進字元數
.CharacterUnitRightIndent = 0 '右縮進字元數
.CharacterUnitFirstLineIndent = 0 '首行縮進字元數
End With
Next j
End Sub
Ⅲ word批量處理圖片尺寸及圖片居中（宏）
在日常的辦公中，我們常常需要在Word文檔中插入大量的圖片，但是圖片尺寸各異可能會影響到版面的視覺效果。這里有一個簡單且實用的方法，通過使用Word的宏功能，可以快速批量調整圖片尺寸和位置，提升工作效率。下面是具體步驟：
首先，進入Word文檔，確保你已經打開了"開發工具"選項卡，這是進行宏操作的必要工具。
接著，找到並打開宏編輯器。如果你不知道如何操作，可以使用快捷鍵ALT+F11直接打開它。
在宏編輯器中，你需要編寫或修改宏代碼。這里，你可以參考以下模板：
xml
Sub ResizeAndCenterImages()
Dim rng As Range
Set rng = ActiveDocument.InlineShapes范圍
' 1. 遍歷所有圖片
For Each shape In rng
' 2. 獲取圖片尺寸並調整
shape.Width = ' 你的新寬度
shape.Height = ' 你的新高度
' 3. 圖片居中對齊
shape.LockAspectRatio = msoFalse ' 確保圖片按比例縮放
shape.Left = shape.Range.InlineParaFormat.Alignment ' 設置水平居中
shape.Top = shape.Range.InlineParaFormat.Alignment ' 設置垂直居中
Next shape
' 4. 宏執行完畢
MsgBox "圖片尺寸調整和居中已完成!"
End Sub
記得替換代碼中的' 你的新寬度' 和 ' 你的新高度' 為實際需要的尺寸。然後，保存並運行宏，你就會看到圖片已經按照指定尺寸並居中對齊了。
通過這個方法，你可以輕松處理文檔中的圖片問題，使版面更加整潔美觀。