Word批量调整图片大小（等比例缩放+居中）

龙骑士Chris

已于 2024-04-02 13:17:20 修改

阅读量622

点赞数 3

文章标签： word

于 2024-04-02 13:09:50 首次发布

本文链接：https://blog.csdn.net/weixin_41603240/article/details/137266336

版权

1.锁定纵横比

Sub setpicsize()


On Error Resume Next '忽略错误
new_width_cm = 7.8  '设置新宽度
For Each iShape In ActiveDocument.InlineShapes '类型 图片
If iShape.Type = wdInlineShapePicture Then
iShape.LockAspectRatio = msoTrue '锁定纵横比
iShape.Width = CentimetersToPoints(new_width_cm) '宽
'Shap.Height = CentimetersToPoints(7) '高注释掉了

With iShape
.Range.ParagraphFormat.Reset
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中
End With

End If

Next

End Sub

2.不锁定纵横比

Sub setpicsize()


On Error Resume Next '忽略错误
new_width_cm = 16  '设置新宽度
new_height_cm = 7  '设置新宽度
For Each iShape In ActiveDocument.InlineShapes '类型 图片
If iShape.Type = wdInlineShapePicture Then
iShape.LockAspectRatio = msoFalse '锁定纵横比
iShape.Width = CentimetersToPoints(new_width_cm) '宽16CM
Shap.Height = CentimetersToPoints(ne