Sub resize() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 50 End With Next i End With End Sub
2.8k سوال
2.6k پاسخ
513 دیدگاه
3.8k کاربر