批量更改word圖片大小的方法
時間:
鳳珠772由 分享
批量更改word圖片大小的方法
工作中,我們不時會需要將大量圖片插入word,并對其設置統(tǒng)一的尺寸大小。那么下面就由學習啦小編給大家分享下批量更改word圖片大小的技巧,希望能幫助到您。
批量更改word圖片大小的步驟
步驟一:彈出宏創(chuàng)建窗口
批量更改word圖片大小的步驟圖1
步驟二:在宏名欄里任意輸入一個宏的名字,本例中我們使用“setpicsize”
步驟三:點擊創(chuàng)建
批量更改word圖片大小的步驟圖2
步驟四:彈出“Microsoft Visual Basic”窗口,復制下面的代碼到代碼窗口里替換掉原有內容:
Sub setpicsize() '設置圖片大小
Dim n '圖片個數(shù)
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 類型 圖片
ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '設置圖片高度為 5cm (1cm等于28.35px)
ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '設置圖片寬度 4cm
Next n
End Sub
'其中圖片本例中圖片尺寸為5cm和4cm
批量更改word圖片大小的步驟圖3
步驟五:點擊“Microsoft Visual Basic”窗口工具欄里的“運行”按鈕(類似播放器里的播放按鈕)或者按鍵盤“F5”鍵
批量更改word圖片大小的步驟圖4
步驟六:待標題欄上方的[正在運行]消失后,點擊右上角小叉關閉“Microsoft Visual Basic”窗口。
批量更改word圖片大小的步驟圖5
看了“如何批量更改word的圖片大小”此文的人還看了: