Содержание

Как моментально изменить масштаб всех картинок в документе Word – Вадим Стеркин

Microsoft Word – это один из моих основных инструментов для создания записей блога, в которых традиционно много снимков экрана. Сегодня я покажу вам интересный макрос, который экономит массу времени при работе с такими документами.

С приходом Windows 8 и ее полноэкранных приложений в моих документах выросло число больших картинок, что затрудняло написние текста и навигацию. Word не запоминает масштаб последней вставленной картинки, подгоняя ее под размер страницы. Но даже если уменьшать каждое изображение вручную, то для публикации в блоге мне в итоге все равно нужны картинки в масштабе 100%.

Я решил упростить себе жизнь!

Как выглядит макрос

Недолгие поиски привели меня к макросу, который одним сочетанием клавиш позволяет задать одинаковый масштаб всем картинкам документа Word.

В основе лежит код VBA.

 Sub AllPictSize()
        Dim PercentSize As Integer
        Dim oIshp As InlineShape
        Dim oshp As Shape
    
        PercentSize = InputBox("Enter percent of full size", "Resize Picture", 100)
    
        For Each oIshp In ActiveDocument.


 InlineShapes
            With oIshp
                .ScaleHeight = PercentSize
                .ScaleWidth = PercentSize
            End With
        Next oIshp
    
        For Each oshp In ActiveDocument.Shapes
            With oshp
                .ScaleHeight Factor:=(PercentSize / 100), _
                  RelativeToOriginalSize:=msoCTrue
                .ScaleWidth Factor:=(PercentSize / 100), _
                  RelativeToOriginalSize:=msoCTrue
            End With
        Next oshp
    End Sub

Шестая строка определяет стандартный масштаб, отображаемый в диалоге.

Как добавить макрос

Проще простого!

  1. В Word нажмите сочетание клавиш Alt + F11, вставьте код в редактор, нажмите Ctrl + S, затем Alt + F4.
  2. Нажмите Alt + F8 и запустите макрос AllPictSize. Все!

Для полного счастья в настройках ленты я повесил на макрос сочетание клавиш Alt + P.

Обратите внимание, как сокращаются инструкции, когда в них включаются сочетания клавиш. Даже картинки не нужны 🙂 Кстати, я посмотрел, что у меня очень много записей про сочетания клавиш, и сделал им отдельный тег.

А вы используете макросы в Office дома или на работе? Расскажите в комментариях, для чего они у вас служат!

Как изменить размер всех / нескольких изображений в Word?

Как изменить размер всех / нескольких изображений в Word?

Когда мы копируем или импортируем изображения из Интернета или других файлов, размер изображений может быть различным. Все знают, как изменять размер изображений одно за другим, но если мы хотим изменить их размер до одного и того же размера сразу, как мы можем это сделать? Этот урок покажет вам несколько методов изменения размера изображений.

Изменение размера изображений вручную в Word

Изменение размера изображений с помощью VBA

Измените размер нескольких изображений одновременно с помощью Kutools for Word