vba設(shè)置圖片格式? 利用VBA統(tǒng)一修改word文檔中圖片格式的技巧
我要評(píng)論VBA是Word軟件重要的擴(kuò)展功能之一，具有強(qiáng)大的代碼編輯和執(zhí)行功能。那么如何利用VBA來(lái)修改Word中圖片的大小呢？下面作者給大家演示一下詳細(xì)的操作流程。
統(tǒng)一大小
1、點(diǎn)擊鼠標(biāo)右鍵，選擇“新建”選項(xiàng)，然后點(diǎn)擊“mircosoft Word 2007”新建一個(gè)Word文件。
2、選擇Word界面上方的“插入”選項(xiàng)，然后點(diǎn)擊'“圖片”按鈕。
3、選中需要編輯的圖片，然后點(diǎn)擊“插入”按鈕。
4、圖片插入完成后，點(diǎn)擊“開(kāi)發(fā)工具”選項(xiàng)，然后選擇“宏”進(jìn)行VBA代碼寫(xiě)入。
5、寫(xiě)明代碼的名稱，然后點(diǎn)擊“創(chuàng)建”按鈕。
6、寫(xiě)入VBA代碼，主要利用代碼為shap.width（寬度設(shè)置）和shap.height（高度設(shè)置），然后關(guān)閉界面。
7、選擇編輯完成的代碼，然后點(diǎn)擊“執(zhí)行”按鈕。
8、圖片大小就修改完成了。
圖片排版
有一個(gè)很長(zhǎng)的總結(jié)報(bào)告，100頁(yè)左右。里面的圖片格式比較亂，需要統(tǒng)一改為單倍行距、居中對(duì)齊、去掉首行縮進(jìn)、統(tǒng)一長(zhǎng)寬尺寸。
Sub 圖片格式()
Dim pic As InlineShape '定義pic
For Each pic In ActiveDocument.InlineShapes '遍歷每一張嵌入的圖片
With pic.Range.ParagraphFormat '設(shè)置圖片所在段落格式
.LineSpacingRule = wdLineSpaceSingle '單倍行距
.CharacterUnitFirstLineIndent = 0 '首行空0字符
.FirstLineIndent = CentimetersToPoints(0) '首行縮進(jìn)0磅，注意要和上面的0字符同時(shí)使用，否則不行
.Alignment = wdAlignParagraphCenter '居中對(duì)齊
End With
pic.LockAspectRatio = msoFalse 'msoTrue '是否鎖定長(zhǎng)寬比
pic.Height = 6 * 28.345 '設(shè)置長(zhǎng)寬，把厘米轉(zhuǎn)化為磅值
pic.Width = 8 * 28.345
Next
End Sub以上就是利用VBA統(tǒng)一修改word文檔中圖片格式的技巧，希望大家喜歡，請(qǐng)繼續(xù)關(guān)注腳本之家。<
相關(guān)文章
Word怎么給圖片添加馬賽克氣泡效果? 馬賽克氣泡效果的使用技巧
在word文檔中，如果需要對(duì)其中的圖片效果進(jìn)行修改的話，應(yīng)如何操作呢？下面我們就來(lái)看看給圖片添加馬賽克氣泡效果的方法2024-09-04
word圖片嵌入式看不見(jiàn)怎么辦? word嵌入式圖片不顯示的解決辦法
，在插入圖片或者從PDF拷貝一些內(nèi)容到Word當(dāng)中的時(shí)候，可能會(huì)遇到下面的問(wèn)題，明明圖片已經(jīng)設(shè)置為嵌入文字行中，但是圖片就是顯示不全,怎么拖動(dòng)都無(wú)法顯示，只留一個(gè)小底邊2024-07-20
word如何設(shè)置圖片的顆粒效果 word設(shè)置圖片的顆粒效果的教程
word如何設(shè)置圖片的顆粒效果？用戶直接在菜單欄中點(diǎn)擊圖片工具的格式選項(xiàng)，接著在藝術(shù)效果選項(xiàng)卡中點(diǎn)擊膠片顆粒選項(xiàng)即可解決問(wèn)題2024-06-17
Word如何增加圖片對(duì)比度 Word文字文檔增加圖片對(duì)比度的方法
Word如何增加圖片對(duì)比度？其實(shí)我們只需要右鍵單擊文檔中的圖片，然后在菜單列表中打開(kāi)“設(shè)置圖片格式”選項(xiàng)，接著在設(shè)置圖片格式窗格中，我們點(diǎn)擊打開(kāi)圖片選項(xiàng)，再在圖片設(shè)2024-06-11
Word如何刪除圖片背景 Word文字文檔刪除圖片背景的方法
Word如何刪除圖片背景？進(jìn)入文字文檔編輯頁(yè)面，然后選中圖片，再在格式工具的子工具欄中找到“刪除背景”工具，點(diǎn)擊打開(kāi)該工具，接著在背景清除頁(yè)面中完成保留以及刪除區(qū)域2024-06-11
Word圖片無(wú)法重疊怎么辦 Word文字文檔圖片無(wú)法重疊解決方法
Word圖片無(wú)法重疊怎么辦？我們只需要點(diǎn)擊圖片，然后打開(kāi)布局彈框，接著在布局彈框的“位置”設(shè)置頁(yè)面中，我們找到“允許重疊”選項(xiàng)，點(diǎn)擊勾選該選項(xiàng)，再點(diǎn)擊“確定”選項(xiàng)即2024-05-28
word如何給圖片設(shè)置虛化效果 word給圖片設(shè)置虛化效果的教程
word如何給圖片設(shè)置虛化效果？用戶可以直接在菜單欄中點(diǎn)擊圖片工具和藝術(shù)效果選項(xiàng)，接著在彈出來(lái)的下拉選項(xiàng)欄中，用戶選擇虛化選項(xiàng)即可解決問(wèn)題，下面一起來(lái)了解一下吧2024-05-02
word如何融合兩張圖片 word將兩張圖片融入到一起的教程
word如何融合兩張圖片?用戶首先需要將要融入的圖片設(shè)置為浮于文字上方，接著將圖片移動(dòng)到另一張圖片上即可實(shí)現(xiàn)融入，下面一起來(lái)了解一下吧2024-05-02word怎么給圖片去白邊? word圖片留白太多消除白邊的技巧
word導(dǎo)入的圖片白邊太多占很大的位置，想要去掉白邊，該怎么操作呢？下面我們就來(lái)看看word去除圖片白邊的技巧2024-02-27
word如何將圖片設(shè)置為頁(yè)面水印 word將圖片設(shè)置為頁(yè)面水印的教程
Word是一款常用的文檔編輯軟件，它不僅可以編輯文字，還可以插入圖片等多媒體元素,如果您需要在Word文檔中添加水印，那么您可以按照以下步驟在，下面分享Word將圖片設(shè)置為2024-01-24
