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

vba設置圖片格式? 利用VBA統一修改word文檔中圖片格式的技巧

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

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

統一大小

1、點擊鼠標右鍵,選擇“新建”選項,然后點擊“mircosoft Word 2007”新建一個Word文件。

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

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

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

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

6、寫入VBA代碼,主要利用代碼為shap.width(寬度設置)和shap.height(高度設置),然后關閉界面。

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

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

圖片排版

有一個很長的總結報告,100頁左右。里面的圖片格式比較亂,需要統一改為單倍行距、居中對齊、去掉首行縮進、統一長寬尺寸。

Sub 圖片格式()
  Dim pic As InlineShape  '定義pic
    For Each pic In ActiveDocument.InlineShapes  '遍歷每一張嵌入的圖片
        With pic.Range.ParagraphFormat           '設置圖片所在段落格式
            .LineSpacingRule = wdLineSpaceSingle '單倍行距
            .CharacterUnitFirstLineIndent = 0    '首行空0字符
            .FirstLineIndent = CentimetersToPoints(0) '首行縮進0磅,注意要和上面的0字符同時使用,否則不行
            .Alignment = wdAlignParagraphCenter  '居中對齊
        End With
        pic.LockAspectRatio = msoFalse 'msoTrue  '是否鎖定長寬比
        pic.Height = 6 * 28.345                  '設置長寬,把厘米轉化為磅值
        pic.Width = 8 * 28.345
    Next
End Sub

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

相關文章

最新評論