Word图片批量居中+批量边框

suifen_sec

已于 2024-07-18 15:25:04 修改

阅读量216

点赞数 2

分类专栏：工作效率文章标签： word 学习方法经验分享

于 2024-07-18 15:19:54 首次发布

本文链接：https://blog.csdn.net/weixin_58370748/article/details/140523837

版权

工作效率专栏收录该内容

1 篇文章 0 订阅

订阅专栏

打开word，输入alt+f11

请添加图片描述

下个文档想要使用的时候，只需alt+f11找到normal的模块1运行
在这里插入图片描述

如果只需要所有图片居中，将代码with到endwith删除即可；同理，只需要边框将居中对齐那行代码删去即可只加边框

以下是AddBordersAndCenterImages的代码：

Sub AddBordersAndCenterImages()
    Dim i As Long
    Dim shape As InlineShape
    
    ' 遍历文档中的所有内嵌形状
    For Each shape In ActiveDocument.InlineShapes
        ' 检查形状是否为图片
        If shape.Type = wdInlineShapePicture Or shape.Type = wdInlineShapeLinkedPicture Then
            ' 给图片添加边框
            With shape
                .Borders.Enable = True
                .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
                .Borders(wdBorderLeft).Color = wdColorAutomatic
                .Borders(wdBorderRight).LineStyle = wdLineStyleSingle
                .Borders(wdBorderRight).Color = wdColorAutomatic
                .Borders(wdBorderTop).LineStyle = wdLineStyleSingle
                .Borders(wdBorderTop).Color = wdColorAutomatic
                .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
                .Borders(wdBorderBottom).Color = wdColorAutomatic
            End With
            ' 将图片居中对齐
            shape.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        End If
    Next shape
End Sub

默认加0.75磅黑框

Enjoy~