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

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

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

VBA是Word軟件重要的擴展功能之一，具有強大的代碼編輯和執(zhí)行功能。那么如何利用VBA來修改Word中圖片的大小呢？下面作者給大家演示一下詳細(xì)的操作流程。

統(tǒng)一大小

1、點擊鼠標(biāo)右鍵，選擇“新建”選項，然后點擊“mircosoft Word 2007”新建一個Word文件。

2、選擇Word界面上方的“插入”選項，然后點擊'“圖片”按鈕。

3、選中需要編輯的圖片，然后點擊“插入”按鈕。

4、圖片插入完成后，點擊“開發(fā)工具”選項，然后選擇“宏”進行VBA代碼寫入。

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

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

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

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

圖片排版

有一個很長的總結(jié)報告，100頁左右。里面的圖片格式比較亂，需要統(tǒng)一改為單倍行距、居中對齊、去掉首行縮進、統(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) '首行縮進0磅，注意要和上面的0字符同時使用，否則不行
            .Alignment = wdAlignParagraphCenter  '居中對齊
        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文檔中圖片格式的技巧，希望大家喜歡，請繼續(xù)關(guān)注腳本之家。<

相關(guān)文章

最新評論