Office2016中使用宏编程批量修改图片尺寸

发布时间：2020-12-15 00:16:03 所属栏目：C语言来源：网络整理

导读：precodeSub 批量改变图片大小() ' ' 批量改变图片大小宏 ' ' Dim isha As InlineShape For Each isha In ActiveDocument.InlineShapes If isha.Type = wdInlineShapePicture Then isha.LockAspectRatio = msoFalse '不锁定纵横比 isha.Width = CentimetersT

                                        <pre><code>Sub 批量改变图片大小()

'
' 批量改变图片大小宏
'
'
Dim isha As InlineShape

For Each isha In ActiveDocument.InlineShapes

If isha.Type = wdInlineShapePicture Then

isha.LockAspectRatio = msoFalse '不锁定纵横比

isha.Width = CentimetersToPoints(7) '宽7cm

isha.Height = CentimetersToPoints(8) '高8cm

End If

End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!