Word: изменение размера изображения по процентам-макрос

скопируйте этот код в модуль редактора VBA (Alt + F11) для вашего документа. Если модуля еще нет, его можно добавить в меню Вставка.

    Sub PicResize()
     Dim PercentSize As Integer

     PercentSize = 75

     If Selection.InlineShapes.Count > 0 Then
         Selection.InlineShapes(1).ScaleHeight = PercentSize
         Selection.InlineShapes(1).ScaleWidth = PercentSize
     Else
         Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
         Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
     End If
 End Sub

для запуска этого макроса нажмите Alt + F8, выберите PicResize из списка макросов и нажмите RUN. Вы также можете назначить его кнопке в меню, если вы хотите просто нажимать каждый раз, чтобы запустить макрос.