关于哪位大神教我怎么在word里批量设置插入的图片格式?[的问题
如果图片都存在同一个文件夹中,那么我们可以按住shift键批量插入图片~
然后用宏方式批量调整图片格式:
Sub 批量统一调整图片大小()
Dim iShape As InlineShape, WidthNum As Long
For Each iShape In ActiveDocument.InlineShapes
With iShape
WidthNum = .Width
c = 10 ‘在此处修改相片宽,单位厘米
.Width = c * 28.35
.Height = (c * 28.35 / WidthNum) * .Height
End With
Next
End Sub