邮件合并制作带相片的证件常用
Sub setpicsize()
Dim n
On Error Resume Next
For n = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Height = 2.8 * 28.35
ActiveDocument.InlineShapes(n).Width = 2 * 28.35
Next n
End Sub
邮件合并制作带相片的证件常用
Sub setpicsize()
Dim n
On Error Resume Next
For n = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Height = 2.8 * 28.35
ActiveDocument.InlineShapes(n).Width = 2 * 28.35
Next n
End Sub
本文标题:word批量改图片尺寸的“宏”
本文链接:https://www.haomeiwen.com/subject/chhtwctx.html
网友评论