用宏自動(dòng)調(diào)整Word文檔圖片尺寸

南非村長(zhǎng)

平時(shí)想用電腦打印兩張照片，最簡(jiǎn)單的方法就是把照片復(fù)制粘貼到Word文檔中，然后將文檔用打印機(jī)打印出來(lái)。不過(guò)碰到一些尺寸不同的照片，在Word文檔中調(diào)整大小就變得非常麻煩了。我們可以通過(guò)宏來(lái)自動(dòng)調(diào)整照片大小，讓這些照片可以放在一張A4紙下。

新建一個(gè)Word文檔，切換選項(xiàng)卡到“布局”，點(diǎn)擊圖中標(biāo)示熒光黃的位置打開(kāi)頁(yè)面設(shè)置（圖1）。

在頁(yè)面設(shè)置中，將設(shè)置頁(yè)邊距上下左右都設(shè)置為0.5厘米，紙張方向改為橫向（圖2）。

選擇Word選項(xiàng)卡中的插入選項(xiàng)，選擇要插入的照片文件，多選一次性插入（圖3、圖4）。

這時(shí)，切換選項(xiàng)卡到視圖一項(xiàng)，點(diǎn)擊右側(cè)的“宏”（圖5）。

在彈出的界面中，隨便輸入一個(gè)宏名稱(chēng)，比如“打印”，然后點(diǎn)擊創(chuàng)建（圖6）。

將以下內(nèi)容復(fù)制到彈出的Microsoft Visual Basic中，注意其中Height=216*0.7、Width=300*0.8中的數(shù)值。如果后續(xù)執(zhí)行時(shí)不能縮進(jìn)到同一頁(yè)面下，可以調(diào)整這部分的數(shù)字（圖7）。

Dim i As Integer

For i=1 To ActiveDOCumentInlineShapes.Count

With ActiveDocument.InlineShapes（i）

.Height=238*0.7

.Width=315*0.8

.Borders（wdBerderTop）.LiReStyle=wdLiReStyleSingle

.Borders（wdBorderTop）.LiReWidth=wdLineWidth050pt

.Borders（wdBorderTop）.Color=wdColorAutomatic

End With

Next i

編輯完成后關(guān)閉，回到Word界面，點(diǎn)擊“宏”下拉菜單（倒三角），找到“查看宏”并單擊運(yùn)行，Word就會(huì)進(jìn)行自動(dòng)的縮放排序，多張圖片很容易就縮進(jìn)到一頁(yè)內(nèi)。如果不能，記得調(diào)整宏中的Height、Width數(shù)值（圖8、圖9）。

按下Ctrl+P調(diào)出打印頁(yè)面，選擇打印即可，一張A4規(guī)格的紙張就能縮進(jìn)多張圖片，是不是很方便？通過(guò)宏命令，可以將很多需要人手工一步一步調(diào)整的步驟變成一步。以后打印照片就方便多啦（圖10）。