word代碼修改圖片尺寸

Ⅰ 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

Ⅱ wps如何批量修改word中圖片的尺寸，統一大小

1、首先在我們的手機桌面上新建一個WPS文檔。
2、然後在文檔中插入幾張照片。
3、然後按下Ctrl+A-右擊圖片-其他布局選項。
4、接著點擊大小。
5、然後把大小高度和寬度選擇你想要的數字填進去並點擊確定就可以了。
工具/材料
wps