① 如何批量修改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