运用宏批量处理图片

摘要：

在制作标书或者编制业绩时，经常遇到需要大批

量的处理图片的情况，这是极其庞大的工作量，

手动处理耗时而且不美观，现将自己总结出来的

小技巧分享给大家

运用宏批量处理图片

摘要：在制作标书或者编制业绩时，经常遇到需要大批量的处理图片的情况，这是极其庞大的工作量，手动处理耗时而且不美观，现将自己总结出来的小技巧分享给大家。

宏是一个批量处理程序命令，正确地运用它可以提高工作效率。微软的office软件运行用户自己编写，叫VBA的脚本来增加其灵活性，进一步扩充它的能力。如完成一个一打开word文件同时要打开某个文件的功能，必须要自己编写一段称之为宏的脚本。具体做法是在“工具”菜单“宏”－“宏”弹出的对话框输入宏名，然后按“创建”按钮会打开visual basic编辑器，你就可以编程了，这个就是宏

这里批量处理图片的方法运用与将word中插入的嵌入格式图片修改为同样大小并添加边框（笔者将本方法常用于编制工程投标文件的业绩册或者人员册相关合同证书发票的批量处理）。

下面笔者将具体方法作一介绍：（后附代码，初学者只需复制即可）

后面附实际运用效果：

附：

Sub 批量处理图片()

Dim i As Integer

For i = 1 To ActiveDocument.InlineShapes.Count

With ActiveDocument.InlineShapes(i)

.LockAspectRatio = msoFalse '不锁定纵横比

.Height = 100 * 0.8

.Width = 200 * 0.8

.Borders(wdBorderTop).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineWidth = wdLineWidth050pt

.Borders(wdBorderTop).Color = wdColorRed End With

Next i

End Sub