如何在word批量修改圖片大小的高級(jí)技巧
發(fā)布時(shí)間:2022-11-14 10:03 [ 我要自學(xué)網(wǎng)原創(chuàng) ] 發(fā)布人: 秋文-27173

在使用Word編輯文檔的時(shí)候,我們時(shí)常會(huì)插入一些圖片素材,如果word中插入了幾十甚至上百?gòu)垐D片,而且尺寸大小都不一樣,為了美觀統(tǒng)一。

需要將所有的圖片調(diào)整成相同的大小,你該不會(huì)一張張的調(diào)整吧?

Word中還有更高能的技巧:那就是使用宏(VBA)來(lái)實(shí)現(xiàn)Word批量修改圖片大小。下面,一起來(lái)看看Word批量調(diào)整圖片尺寸的操作技巧:


1)首先插入圖片或直接打開(kāi)已有圖片的Word圖文文檔。

word批量調(diào)整圖片尺寸

2)直接按【Alt+F8】打開(kāi) “對(duì)話框,在宏名文本框中輸入宏名稱"setpicsize",然后點(diǎn)擊創(chuàng)建按鈕。

word統(tǒng)一調(diào)整圖片尺寸

3)打開(kāi)VBA編輯器(也可直接按【Alt+F11】快捷鍵),刪除窗口中原有的通用代碼,然后將下面的代碼復(fù)制粘貼到窗口中。

Sub setpicsize() '設(shè)置圖片尺寸

 

Dim n '圖片個(gè)數(shù)

 

On Error Resume Next '忽略錯(cuò)誤

 

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

 

ActiveDocument.InlineShapes(n).Height = 198.45 '設(shè)置圖片高度為 7cm 

 

ActiveDocument.InlineShapes(n).Width = 283.5 '設(shè)置圖片寬度 10cm

 

Next n

 

End Sub

word批量修改圖片大小

技巧提示:代碼中圖片的寬度(Height = 170.1 '設(shè)置圖片高度為 6cm );高度(Width = 283.5 '設(shè)置圖片寬度 10cm,是如何計(jì)算得出的。

方法為:Word中的尺寸單位默認(rèn)是cm(厘米),而1cm等于28.35px(像素),由于代碼中換算設(shè)置的單位是px(像素)。所以就用尺寸高度或?qū)挾戎党讼袼刂。即為?/span>7*28.35=198.45;寬度換算方法與此相同。

 

4)然后按【Ctrl + S 】鍵保存內(nèi)容,關(guān)閉窗口。再次按【ALT + F8】打開(kāi) “對(duì)話框查看宏,點(diǎn)擊運(yùn)行按鈕。此時(shí),文檔中的所有圖片就會(huì)自動(dòng)的變成設(shè)置好的尺寸大小了。

Word教程

效果如圖所示:

Word原創(chuàng)教程

但是,細(xì)心的小伙伴會(huì)發(fā)現(xiàn),上方文檔中圖片的高度還是不一樣,是怎么回事?這是由于勾選了鎖定縱橫比復(fù)選框(是Word為了調(diào)整圖片尺寸時(shí),為保持圖片不變形而默認(rèn)勾選的選項(xiàng))。

在圖片上右擊鼠標(biāo),選擇大小和位置命令,在打開(kāi)的對(duì)話框中取消勾選““鎖定縱橫比復(fù)選框。然后運(yùn)行宏,此時(shí),所有圖片的高度和寬度就統(tǒng)一了。

又或是:打開(kāi)VBA編輯器(也可直接按【Alt+F11】快捷鍵),新建模塊,然后將下面的代碼復(fù)制粘貼到窗口中。

Sub FormatPics()

    Dim Shap As InlineShape

    For Each Shap In ActiveDocument.InlineShapes

        If Shap.Type = wdInlineShapePicture Then

            Shap.LockAspectRatio = msoFalse '不鎖定縱橫比

            Shap.Width = CentimetersToPoints(10) '10CM

            Shap.Height = CentimetersToPoints(7) '7CM

        End If

    Next

End Sub


然后保存宏,關(guān)閉窗口。再運(yùn)行宏


Word2019視頻教程
我要自學(xué)網(wǎng)商城 ¥70 元
進(jìn)入購(gòu)買
文章評(píng)論
0 條評(píng)論 按熱度排序 按時(shí)間排序 /350
添加表情
遵守中華人民共和國(guó)的各項(xiàng)道德法規(guī),
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任,
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。
V
特惠充值
聯(lián)系客服
APP下載
官方微信
返回頂部
分類選擇:
電腦辦公 平面設(shè)計(jì) 室內(nèi)設(shè)計(jì) 室外設(shè)計(jì) 機(jī)械設(shè)計(jì) 工業(yè)自動(dòng)化 影視動(dòng)畫(huà) 程序開(kāi)發(fā) 網(wǎng)頁(yè)設(shè)計(jì) 會(huì)計(jì)課程 興趣成長(zhǎng) AIGC