Word里应用宏功能批量改图片大小和边框

  • 2016-12-09
  • 0
  • 0

方法一:在word软件界面中依次点击:开发工具→宏

方法二:同时按键盘“Alt”键和“F8”键(后面简称Alt+F8)
弹出宏创建窗口
在宏名栏里任意输入一个宏的名字,本例中我们使用“setpicsize”
点击创建

弹出“Microsoft Visual Basic”窗口,复制下面的代码到代码窗口里替换掉原有内容:
Sub setpicsize() ‘设置图片大小
Dim n ‘图片个数
On Error Resume Next ‘忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count ‘InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 5 * 28.35 ‘设置图片高度为 5cm (1cm等于28.35px)
ActiveDocument.InlineShapes(n).Width = 4 * 28.35 ‘设置图片宽度 4cm
Next n
End Sub
‘其中图片本例中图片尺寸为5cm和4cm

4
点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮(类似播放器里的播放按钮)或者按键盘“F5”键

Sub Example()
Dim oInlineShape As InlineShape
Application.ScreenUpdating = False
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape.Borders
.OutsideLineStyle = wdLineStyleThinThickSmallGap
.OutsideLineStyle = wdLineStyleSingle
.OutsideLineWidth = wdLineWidth050pt
End With
Next
Application.ScreenUpdating = True
End Sub

其实你在wdLineStyleThinThickSmallGap处单击鼠标右键,选择“定义”就能看到所有可选值

评论

还没有任何评论,你来说两句吧

发表评论