欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

vba設(shè)置圖片格式? 利用VBA統(tǒng)一修改word文檔中圖片格式的技巧

  發(fā)布時(shí)間：2024-11-25 09:42:24   作者：佚名   我要評(píng)論
word文檔圖片很多，排版很亂，一點(diǎn)一點(diǎn)修改不現(xiàn)實(shí)，我們可以使用vba統(tǒng)一圖片大小和排版，詳細(xì)請(qǐng)看下文介紹

VBA是Word軟件重要的擴(kuò)展功能之一，具有強(qiáng)大的代碼編輯和執(zhí)行功能。那么如何利用VBA來修改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)擊“開發(fā)工具”選項(xiàng)，然后選擇“宏”進(jìn)行VBA代碼寫入。

5、寫明代碼的名稱，然后點(diǎn)擊“創(chuàng)建”按鈕。

6、寫入VBA代碼，主要利用代碼為shap.width（寬度設(shè)置）和shap.height（高度設(shè)置），然后關(guān)閉界面。

7、選擇編輯完成的代碼，然后點(diǎn)擊“執(zhí)行”按鈕。

8、圖片大小就修改完成了。

圖片排版

有一個(gè)很長的總結(jié)報(bào)告，100頁左右。里面的圖片格式比較亂，需要統(tǒng)一改為單倍行距、居中對(duì)齊、去掉首行縮進(jìn)、統(tǒ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  '是否鎖定長寬比
        pic.Height = 6 * 28.345                  '設(shè)置長寬，把厘米轉(zhuǎn)化為磅值
        pic.Width = 8 * 28.345
    Next
End Sub

以上就是利用VBA統(tǒng)一修改word文檔中圖片格式的技巧，希望大家喜歡，請(qǐng)繼續(xù)關(guān)注腳本之家。<

相關(guān)文章

最新評(píng)論