



下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、批量調(diào)整WOR圖片大小教程今天編輯一份 WOR文檔,里面有很多圖片,需要將里面的圖片調(diào)整為固定大小,一般操作 方法是右鍵點(diǎn)擊圖片,然后再點(diǎn)擊大小按鈕-J3站站曰JI 1覽5猶入頓洋蝕.文字子察葩H打竊吸置圏用式彈出大小菜單,修改高度和寬度數(shù)值即可。但是文檔里面圖片太多,這樣一張一張的修改,會讓人崩潰。 下面介紹批量調(diào)整圖片大小的方法。打開WOR文檔后,按Alt+F8進(jìn)入宏的界面,如下圖所示,宏名(N):扃的位冒3 |所有的活動模檢和立檔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):憲的位畳通;|所有的活動模檢和立檔3說期Q):取消|這次點(diǎn)擊選中調(diào)
5、整圖片大小的宏,然后點(diǎn)擊運(yùn)行,就開始自動調(diào)整圖片大小了 如果文檔里面圖片較多,執(zhí)行的時(shí)間會長一些。另外宏代碼里面的高度和寬度 數(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等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 四川省德陽市2025屆高三下學(xué)期二模試題 化學(xué) 含解析
- 行政管理復(fù)習(xí)計(jì)劃的重點(diǎn)安排:試題及答案
- 慢性阻塞性肺疾病護(hù)理常規(guī)體系構(gòu)建
- 2025年法學(xué)概論知識點(diǎn)梳理與試題及答案
- 企業(yè)戰(zhàn)略調(diào)整的步驟試題及答案
- 2025年行業(yè)競爭中的風(fēng)險(xiǎn)應(yīng)對試題及答案
- 學(xué)?;馂?zāi)斷電應(yīng)急預(yù)案(3篇)
- 國際法與全球治理的關(guān)系試題及答案討論
- 跨文化經(jīng)濟(jì)交流的必要性試題及答案
- 法學(xué)概論考試重點(diǎn)知識與試題及答案
- 【MOOC】工程圖學(xué)-中國礦業(yè)大學(xué) 中國大學(xué)慕課MOOC答案
- 《公路橋梁掛籃設(shè)計(jì)與施工技術(shù)指南》
- 第五屆全國電力行業(yè)青年培訓(xùn)師教學(xué)技能競賽考試題庫-上(單選題)
- 主要糧食作物機(jī)收減損技術(shù)-農(nóng)業(yè)農(nóng)機(jī)技術(shù)培訓(xùn)課件
- 2024屆新高考數(shù)學(xué)大題訓(xùn)練:數(shù)列(30題)(解析版)
- 08J907 潔凈廠房建筑構(gòu)造
- 中醫(yī)內(nèi)科學(xué):汗證
- 醫(yī)療設(shè)備巡檢和維修保養(yǎng)管理制度
- 初中歷史資本主義制度的初步確立 作業(yè)設(shè)計(jì)
- 浙江省溫州市2024年高一下學(xué)期期末教學(xué)質(zhì)量統(tǒng)測英語試題(B)含解析
- 能源英語面面觀 知到智慧樹網(wǎng)課答案
評論
0/150
提交評論