Word多图片放在一张A4纸打印--使用VBS建立一个宏

通常结合PS批量处理图片_统一大小一起使用。首先批量处理所有图片固定大小，然后在放在word中打印。

建立一个宏


image.png

image.png

代码如下

Sub A4纸打印test()
'
' A4纸打印test 宏 width和height为单张图片的宽高数值自定义，注意其比例
'

'
'
Dim i As Integer

For i = 1 To ActiveDocument.InlineShapes.Count

With ActiveDocument.InlineShapes(i)

.Height = 334

.Width = 188

.Borders(wdBorderTop).LineStyle = wdLineStyleSingle

.Borders(wdBorderTop).LineWidth = wdLineWidth050pt

.Borders(wdBorderTop).Color = wdColorAutomatic

End With

Next i

End Sub

简书文尾图.jpg

--by Affandi ⊙▽⊙

最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容