[手把手]word批量導入、修改圖片大小和壓縮圖片

材料/工具

word軟件電腦

方法

在電腦上打開word，進入自己操作的文檔頁面

將所有需要導入的圖片放入同一文件夾，修改文件名，使其排列順序符合我們要求。

打開word，進入文檔操作界面，點擊右上角如圖“插入”

點擊“插入”之后，點擊插入中的圖片，如圖所示

在彈出的窗口，“查找范圍”框里找到需要插入圖片所在文件夾，
方法一：選中第1張圖片，按住鍵盤Shift鍵，再選中最后一張圖片。
方法二：選中任意一張照片，同時按鍵盤“Ctrl”鍵和字母“A”鍵，全選
點擊“插入”

接x下來

方法一：在word軟件界面中依次點擊：視圖→宏
方法二：同時按鍵盤“Alt”鍵和“F8”鍵（后面簡稱Alt+F8）
彈出宏創(chuàng)建窗口

在宏名欄里任意輸入一個宏的名字，本例中我們使用“Wendy”
點擊創(chuàng)建

彈出“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

點擊“Microsoft Visual Basic”窗口工具欄里的“運行”按鈕（類似播放器里的播放按鈕）或者按鍵盤“F5”鍵

待標題欄上方的[正在運行]消失后，點擊右上角小叉關閉“Microsoft Visual Basic”窗口。
大功告成??！

聲明：本網(wǎng)頁內容旨在傳播知識，若有侵權等問題請及時與本網(wǎng)聯(lián)系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com