



下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、批量調(diào)整WOR圖片大小教程今天編輯一份 WOR文檔,里面有很多圖片,需要將里面的圖片調(diào)整為固定大小,一般操作 方法是右鍵點(diǎn)擊圖片,然后再點(diǎn)擊大小按鈕-J3站站曰JI 1覽5猶入頓洋蝕.文字子察葩H打竊吸置圏用式彈出大小菜單,修改高度和寬度數(shù)值即可。但是文檔里面圖片太多,這樣一張一張的修改,會(huì)讓人崩潰。 下面介紹批量調(diào)整圖片大小的方法。打開WOR文檔后,按Alt+F8進(jìn)入宏的界面,如下圖所示,宏名(N):扃的位冒3 |所有的活動(dòng)模檢和立檔2說期Q):輸入一個(gè)宏的名字,這里宏名為調(diào)整圖片大小,單擊“創(chuàng)建”進(jìn)入宏編輯器,A; Svrval _ Jeiriacros G代碼)Snh調(diào)整圄片大少(凋整閔
2、片大小On Error Rsuni Nxt J 霧昭錯(cuò)淇Far it = 1 To ActivtD*cumt. ItJiniShir-es. Count InlinfeShap4s 英型E片 ActiveDunieMr IidintShapss He i ght = 400 片蒼度肯 QUpxActivfrDfrcuritntWidth = 300 設(shè)置團(tuán)片寬滾 30咗比ifeict nTcnr Ji - 1 Tq Acti veDpcuni! Sh電pg呂Sb呷陸 姿型閨片 ActivDocLFiiutr Shapas Ih). JIight = 400 J iSHE片高度為電COjHtAc
3、tie-Docuieat- Shapes (p). idth = 300,謖置團(tuán)片寬.亶 3J0y3Nest nEn J. SuL進(jìn)行宏編輯界面以后,將里面的代碼全部刪掉,然后復(fù)制如下代碼并保存Sub調(diào)整圖片大小()調(diào)整圖片大小Dim n 圖片個(gè)數(shù)On Error Resume Next 忽略錯(cuò)誤For n = 1 To ActiveDocume nt.ln li neSh apes.Cou nt I nli neShapes類型圖片ActiveDocume nt.ln li neShapes( n).Height = 400 設(shè)置圖片高度為 400pxActiveDocume nt.l nl
4、i neShapes( n).Width = 300 設(shè)置圖片寬度 300pxNext nFor n = 1 To ActiveDocume nt.Shapes.Cou nt Shapes類型圖片ActiveDocume nt.Shapes( n).Height = 400 設(shè)置圖片高度為 400pxActiveDocume nt.Shapes( n).Width = 300 設(shè)置圖片寬度 300pxNext nEnd Sub宏保存以后,將宏編輯界面關(guān)閉。返回到WOR文檔,再次按Alt+F8進(jìn)入宏的界面,如下圖所示宏志召(N):憲的位畳通;|所有的活動(dòng)模檢和立檔3說期Q):取消|這次點(diǎn)擊選中調(diào)
5、整圖片大小的宏,然后點(diǎn)擊運(yùn)行,就開始自動(dòng)調(diào)整圖片大小了 如果文檔里面圖片較多,執(zhí)行的時(shí)間會(huì)長(zhǎng)一些。另外宏代碼里面的高度和寬度 數(shù)值可以自己按需要進(jìn)行修改。另外再送一個(gè)批量按比例縮放圖片的宏,制作方法和上面的一樣。Sub 圖片按比例縮放 () 圖片按比例縮放Dim n 圖片個(gè)數(shù)Dim picwidthDim picheightOn Error Resume Next 忽略錯(cuò)誤類型圖片設(shè)置高度為 1.1 倍設(shè)置寬度為 1.1 倍For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes picheight = ActiveDocument
6、.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 Next n類型圖片設(shè)置高度為 1.1 倍設(shè)置寬度為 1.1 倍For n = 1 To ActiveDocument.Shapes.Count Shapes picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025船舶租賃合同范本示例
- 2025年高模量玻璃纖維紗項(xiàng)目建議書
- 發(fā)屋承包協(xié)議3篇
- 廚師工作說明3篇
- 保險(xiǎn)理賠授權(quán)委托書注意事項(xiàng)3篇
- 家具招標(biāo)文件內(nèi)容3篇
- 廠家委授權(quán)書3篇
- 年贈(zèng)與協(xié)議書范本3篇
- 小學(xué)數(shù)學(xué)下學(xué)期教研工作總結(jié)(6篇)
- 信譽(yù)保證的年限承諾3篇
- 2025年高考物理復(fù)習(xí)之小題狂練600題(解答題):機(jī)械波(10題)
- 手工掛面標(biāo)準(zhǔn)
- DB31-T 1385-2022 科技成果分類評(píng)價(jià)和價(jià)值潛力評(píng)價(jià)規(guī)范
- 《什么是PBL教學(xué)法》課件
- 亞朵客房培訓(xùn)
- 拓寬超高清內(nèi)容分發(fā)渠道實(shí)施方案
- 個(gè)體工商營(yíng)業(yè)執(zhí)照變更委托書
- 示范崗和先鋒崗的設(shè)置實(shí)施方案
- 教科版四年級(jí)科學(xué)下冊(cè)期中試卷
- 中國(guó)酒類企業(yè)ESG披露指南
- 2024年企業(yè)質(zhì)量月知識(shí)競(jìng)賽試題庫(kù)500題(含答案)
評(píng)論
0/150
提交評(píng)論