02
给多张图片批量添加边框
在排版长文档时,如果文档中有多张、甚至上百上千图片同时都需要添加边框,怎么办?这时候,我们可以利用宏批量为图片添加边框。 方法为:点击【视图】-【宏】按钮,然后选择”查看宏“命令,打开”宏“对话框,在”宏名“文本框中输入宏的名字,这里输入”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