word如何批量導(dǎo)入、修改圖片尺寸和壓縮圖片
工作中,我們不時(shí)會(huì)需要將大量圖片插入word,并對(duì)其設(shè)置統(tǒng)一的尺寸大小。那么下面就由學(xué)習(xí)啦小編為您分享下批量導(dǎo)入、修改圖片尺寸和壓縮圖片的技巧,希望能幫助您,有需要的朋友可以來看看哦。
一、批量導(dǎo)入圖片
步驟一:將所有需要導(dǎo)入的圖片放入同一文件夾,修改文件名,使其排列順序符合我們要求。
步驟二:打開word,依次點(diǎn)擊:插入→圖片
步驟三:在彈出的窗口,“查找范圍”框里找到需要插入圖片所在文件夾,
方法一:選中第1張圖片,按住鍵盤Shift鍵,再選中最后一張圖片。
方法二:選中任意一張照片,同時(shí)按鍵盤“Ctrl”鍵和字母“A”鍵,全選
點(diǎn)擊“插入”
步驟四:效果如圖
批量修改圖片尺寸
步驟一:接上面的例子。
方法一:在word軟件界面中依次點(diǎn)擊:開發(fā)工具→宏
方法二:同時(shí)按鍵盤“Alt”鍵和“F8”鍵(后面簡(jiǎn)稱Alt+F8)
彈出宏創(chuàng)建窗口
步驟二::在宏名欄里任意輸入一個(gè)宏的名字,本例中我們使用“setpicsize”
步驟三:點(diǎn)擊創(chuàng)建
步驟四:彈出“Microsoft Visual Basic”窗口,復(fù)制下面的代碼到代碼窗口里替換掉原有內(nèi)容:
Sub setpicsize() '設(shè)置圖片大小
Dim n '圖片個(gè)數(shù)
On Error Resume Next '忽略錯(cuò)誤
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
步驟五:點(diǎn)擊“Microsoft Visual Basic”窗口工具欄里的“運(yùn)行”按鈕(類似播放器里的播放按鈕)或者按鍵盤“F5”鍵
等待一會(huì)兒……(等待時(shí)間取決于你插入圖片的多少和你電腦的運(yùn)算速度)……
步驟六:待標(biāo)題欄上方的[正在運(yùn)行]消失后,點(diǎn)擊右上角小叉關(guān)閉“Microsoft Visual Basic”窗口。
大功告成!!
批量壓縮圖片大小
步驟一:選中任意一張圖片,依次點(diǎn)擊:“格式”→“壓縮圖片”
步驟二:在彈出的“壓縮圖片”窗口里點(diǎn)擊“選項(xiàng)”;
步驟三:在彈出的“壓縮設(shè)置”窗口里選擇相應(yīng)的“目標(biāo)輸出”;
步驟四:確定。
看了“word如何批量導(dǎo)入、修改圖片尺寸和壓縮圖片”此文的人還看了: