秒客网

最近一直在写实验报告，报告里的图片动辄几十张，如果想给所有图片加上边框就很费劲。
刚刚找到了一种方法，利用Word宏功能，批量添加图片边框。
随手写篇博客记一下，说不定以后还会用到

首先在Word顶部菜单栏中找到 视图 -> 宏 -> 查看宏

在宏窗口输入宏名，我这里输入了Picture，也可以些别的名字。然后点击创建。

将初始化的代码内容全部删除，粘贴以下代码：

Sub Example()
    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

点击保存并执行，图片即可被全部加上边框。

图片边框的效果如下图所示。