%20%D0%B2%20Microsoft%20Word.png)
Мне нужно изменить размер (увеличить размер) нескольких снимков экрана в документе Word одним щелчком мыши.
У меня есть макрос с собой. Ниже приведен макрос..
Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub
но макрос выше работает только для одного скриншота. Если вы хотите изменить размер всех выбранных изображений, то нужны некоторые изменения.
Пожалуйста, помогите мне в модификации макроса.
решение1
Я взглянул на эторуководствои я написал этот код:
Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
For Each ishp In ActiveDocument.InlineShapes
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Next ishp
For Each shp In ActiveDocument.Shapes
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
Next shp
End Sub
Я не программист, так что это просто попытка :)