word 宏怎么编写 csdn

发布网友发布时间：2022-06-04 20:01

共1个回答

热心网友时间：2022-07-11 04:02

参考如下代码：

Sub 批量调整图片尺寸()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
If iShape.Type = wdInlineShapePicture Then
iShape.Height = CentimetersToPoints(14.26)
iShape.Width = CentimetersToPoints(18.06)
End If
Next
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com