|
 
- 帖子
- 576
- 积分
- 1073
- 技术
- 156
- 捐助
- 0
- 注册时间
- 2022-6-20
|
2楼
发表于 2022-7-26 09:20
| 只看该作者
Sub 批量设置图片尺寸()
Dim picwidth
Dim picheight
On Error Resume Next
picheight = 10 '高度（厘米）
picwidth = 8 '宽度（厘米）
For Each Shape In ActiveDocument.InlineShapes
Next
For Each Shape In ActiveDocument.Shapes
Shape.LockAspectRatio = msoFalse
Shape.Height = picheight * 28.35
Shape.Width = picwidth * 28.35
Next
End Sub |
|
