Автоматическое изменение размера изображений (увеличение размера снимка экрана) в microsoft word

Мне нужно изменить размер (увеличить размер) несколько снимков screesn в документе 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

но выше макрос работает только один скриншот. Если вы хотите изменить размер всех выбранных изображений, это требует некоторой модификации.

пожалуйста, помогите мне в изменении макроса.