word怎樣導(dǎo)入圖片并修改和壓縮圖片圖解

　　工作中，我們不時會需要將大量圖片插入word，并對其設(shè)置統(tǒng)一的尺寸大小。那么下面就由學(xué)習啦小編為您分享下批量導(dǎo)入、修改圖片尺寸和壓縮圖片的技巧，歡迎大家來到學(xué)習啦學(xué)習。

　　word導(dǎo)入圖片并修改和壓縮圖片的方法

　　一、批量導(dǎo)入圖片

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

　　步驟二：打開word，依次點擊：插入→圖片

　　步驟三：在彈出的窗口，“查找范圍”框里找到需要插入圖片所在文件夾，

　　方法一：選中第1張圖片，按住鍵盤Shift鍵，再選中最后一張圖片。

　　方法二：選中任意一張照片，同時按鍵盤“Ctrl”鍵和字母“A”鍵，全選

　　點擊“插入”

　　步驟四：效果如圖

　　word批量修改圖片尺寸

　　步驟一：接上面的例子。

　　方法一：在word軟件界面中依次點擊：開發(fā)工具→宏

　　方法二：同時按鍵盤“Alt”鍵和“F8”鍵(后面簡稱Alt+F8)

　　彈出宏創(chuàng)建窗口

　　步驟二：：在宏名欄里任意輸入一個宏的名字，本例中我們使用“setpicsize”

　　步驟三：點擊創(chuàng)建

　　步驟四：彈出“Microsoft Visual Basic”窗口，復(fù)制下面的代碼到代碼窗口里替換掉原有內(nèi)容：

　　Sub setpicsize() '設(shè)置圖片大小

　　Dim n '圖片個數(shù)

　　On Error Resume Next '忽略錯誤

　　For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 類型 圖片

　　ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '設(shè)置圖片高度為 5cm (1cm等于28.35px)

　　ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '設(shè)置圖片寬度 4cm

　　Next n

　　End Sub

　　'其中圖片本例中圖片尺寸為5cm和4cm

　　步驟五：點擊“Microsoft Visual Basic”窗口工具欄里的“運行”按鈕(類似播放器里的播放按鈕)或者按鍵盤“F5”鍵

　　等待一會兒……(等待時間取決于你插入圖片的多少和你電腦的運算速度)……

　　步驟六：待標題欄上方的[正在運行]消失后，點擊右上角小叉關(guān)閉“Microsoft Visual Basic”窗口。

　　大功告成!!

　　word批量壓縮圖片大小

　　步驟一：選中任意一張圖片，依次點擊：“格式”→“壓縮圖片”

　　步驟二：在彈出的“壓縮圖片”窗口里點擊“選項”;

　　步驟三：在彈出的“壓縮設(shè)置”窗口里選擇相應(yīng)的“目標輸出”;

　　步驟四：確定。