版權(quán)說(shuō)明:本文檔由用戶(hù)提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、圖片大小一致word2007 選定一張圖片后,然后點(diǎn)擊“格式相似的文本”,就可以把本文檔里的全部圖片選定,然后再在圖片工具欄里把長(zhǎng)寬修改成相同的尺寸。2003等:一,在word中按alt+f11組合鍵,進(jìn)入VBA模式二,在左邊的工程資源管理器中找到你的word文檔,在其上右鍵/添加/模塊三,把下面代碼復(fù)制,粘貼進(jìn)去.四,更改數(shù)值, 改一下寬度和高度數(shù)值(10,點(diǎn)運(yùn)行(類(lèi)似播放按鈕.或f5,即可設(shè)置文檔中全部圖片Sub Macro(Mywidth=1010為圖片寬度(厘米Myheigth=1010為圖片高度(厘米For Each iShape In ActiveDocument.InlineSh
2、apesiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub批量處理圖片大小2、宏名起好了,單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器,輸入如下代碼并保存Sub setpicsize( 設(shè)置圖片大小Dim n 圖片個(gè)數(shù)On Error Resume Next 忽略錯(cuò)誤ActiveDocument.InlineShapes(n.Width = 300 設(shè)置圖片寬度300pxNext nActiveDocument.Shapes(n.Height = 400 設(shè)置圖片高度為400p
3、xActiveDocument.Shapes(n.Width = 300 設(shè)置圖片寬度300pxNext nEnd Subword批量修改圖片大小按比例縮放篇這部分要說(shuō)的是把word中的所有圖片按比例縮放!具體操作同上,只是代碼部分稍做修改,代碼如下:Sub setpicsize( 設(shè)置圖片大小Dim n 圖片個(gè)數(shù)Dim picwidthDim picheightOn Error Resume Next 忽略錯(cuò)誤picheight = ActiveDocument.InlineShapes(n.Heightpicwidth = ActiveDocument.InlineShapes(n.Wid
4、thNext npicheight = ActiveDocument.Shapes(n.Heightpicwidth = ActiveDocument.Shapes(n.WidthNext nEnd SubSub setpicsize(設(shè)置圖片大小 宏在2008-3-31 由hero_thm 錄制Dim j 計(jì)數(shù)圖片個(gè)數(shù)ActiveDocument.InlineShapes(j.Width = 400 設(shè)置寬度End IfNext jEnd Subword如何一次性選中所有圖片并且編輯版式Q:圖文混排的長(zhǎng)文檔,如何將所有圖片一次性設(shè)置為居中?A: Word文檔中插入一些圖片,如果一個(gè)一個(gè)手工設(shè)
5、置居中,效率實(shí)在太低,利用查找替換可以批量完成。第一步,打開(kāi)“查找和替換”對(duì)話框,“查找內(nèi)容”框中,輸入“g”,然后將光標(biāo)定位到“替換為”文本框中,單擊“高級(jí)”按鈕,從格式的下拉菜單中選擇“圖文框”,打開(kāi)“查找圖文框”對(duì)話框。第二步,在“查找圖文框”中按以下圖片所示的設(shè)置:第三步,設(shè)置完成,單擊“確定”關(guān)閉“查找圖文框”,返回“查找和替換”對(duì)話框,單擊“全部替換”。這樣就可以將Word中的圖片一次性批量設(shè)置為居中顯示。圖片居中Sub setpicsize(Dim j 計(jì)數(shù)圖片個(gè)數(shù)ActiveDocument.InlineShapes(j.Select 選中圖片With Selection.Pa
6、ragraphFormat 所選段落的格式.Alignment = wdAlignParagraphCenter 圖片居中.LeftIndent = 0 左縮進(jìn)磅數(shù).RightIndent = 0 右縮進(jìn)磅數(shù).FirstLineIndent = 0 首行縮進(jìn)磅數(shù).CharacterUnitLeftIndent = 0 左縮進(jìn)字符數(shù).CharacterUnitRightIndent = 0 右縮進(jìn)字符數(shù).CharacterUnitFirstLineIndent = 0 首行縮進(jìn)字符數(shù)End WithNext jEnd Sub批量修改表格格式Sub ChangeTable(With Selection表格外邊框.Borders.OutsideLineStyle = wdLineStyleSingle表格內(nèi)邊框.Borders.InsideLineStyle = wdLineStyleSingle表格居中.Rows.Alignment = wdAlignRowCenter表格內(nèi)容居中Next iEnd Sub常用的格式(1更改圖片大小Sub setpicsize( 設(shè)置圖片大小Dim n 圖片個(gè)數(shù)On Error Resume Next 忽略錯(cuò)誤Next nActiveDocument.Shapes(n.Height =
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 公務(wù)員2017年國(guó)考《申論》真題卷及答案(地市級(jí))
- 感恩母校的演講稿范文800字(30篇)
- 小兒腹瀉的四大類(lèi)用藥課件
- 廣州市家具買(mǎi)賣(mài)合同(32篇)
- 高中課前三分鐘演講稿范文(32篇)
- 文明崗事跡5篇
- 紅領(lǐng)巾廣播稿范文
- 心理健康教育宣傳月活動(dòng)總結(jié)
- 小兒輔助循環(huán)監(jiān)測(cè)課件
- 甘于奉獻(xiàn)演講稿(11篇)
- 部編版三年級(jí)語(yǔ)文上冊(cè)第一單元口語(yǔ)交際PPT
- 第一單元《好朋友》大單元(教學(xué)設(shè)計(jì))人音版音樂(lè)一年級(jí)上冊(cè)
- 外研版九年級(jí)英語(yǔ)上冊(cè)全冊(cè)課件【完整版】
- 新時(shí)代高職英語(yǔ)(基礎(chǔ)模塊)Unit2
- 八綱辨證與氣血津液辨證課件
- 空心板梁吊裝安全專(zhuān)項(xiàng)方案
- 面試不合格評(píng)語(yǔ)
- 《鹽和糖的溶解》(課件)人教版科學(xué)三年級(jí)上冊(cè)
- 高考古詩(shī)文閱讀專(zhuān)練:黃庭堅(jiān)+
- 縫紉工(技師)理論考試復(fù)習(xí)題庫(kù)(匯總)
- 二年級(jí)家長(zhǎng)會(huì)班主任發(fā)言稿完整版課件
評(píng)論
0/150
提交評(píng)論