word里自动调整图片大小并且添加黑色框线

1.应用

     word书写过程有时候需要批量修改图片大小使得格式统一化，对每个图片进行修改费时费力，写了一些小程序批量修改希望对需要经常写word的人有帮助。

2.程序

2.1图片大小调整

' Sub 图片格式调整()

'

' 图片格式调整 宏

Dim n '图片个数

    On Error Resume Next '忽略错误

    For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

    

     ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定纵横比，重要，不然会变形

    ActiveDocument.InlineShapes(n).Height = 6.73 * 28.35 '设置图片高度为 260px,1cm=28.35

    ActiveDocument.InlineShapes(n).Width = 14.57 * 28.35 '设置图片宽度 413px

    

    ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中

       

    Next n

'    For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

'

'    ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px

'

'    ActiveDocument.Shapes(n).Width = 413 '设置图片宽度 300px

'

'    ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中

'

'    Next n

End Sub给图片增加框

2.2图片添加黑色边框

Sub 增加图片边框()

'' 增加图片边框 宏

Dim oInlineShape As InlineShape

    Application.ScreenUpdating = False

    For Each oInlineShape In ActiveDocument.InlineShapes

        With oInlineShape.Borders

            .OutsideLineStyle = wdLineStyleSingle

            .OutsideColorIndex = wdColorAutomatic

            .OutsideLineWidth = wdLineWidth050pt

        End With

    Next

    Application.ScreenUpdating = True

End Sub