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?
• Как поменять прозрачность рисунка в Ворде?

Рисунки в Ворд вставляются согласно настроек программы. Если изображение довольно маленькое, то оно вставится без каких-либо изменений, а если его размер достаточно большой, оно будет автоматически уменьшено.

При необходимости можно довольно просто увеличить или уменьшить рисунок в Ворде до необходимых размеров мышкой либо через меню.

При выделении картинки на ней появляются дополнительный элементы по углам и в центре каждой стороны, и перетаскивая их мышкой можно увеличить или уменьшить картинку в Ворде до необходимых размеров.

При перетаскивании угловых элементов размер рисунка в Ворде будет меняться пропорционально, а при перемещении элементов по середине каждой стороны изображение будет растягиваться или сужаться с соответствующей стороны.

Также есть возможность зайти в меню и задать точный размер рисунка или относительный размер в процентах с сохранением или без сохранения пропорций. Для этого можно просто зайти на вкладку «Формат» после выделения картинки и указать размер с соответствующих графах или же можно вызвать дополнительное окошко «Размер и положение», нажав соответствующий значок на влкдаке «Формат» или выбрав необходимый пункт в меню после нажатия правой кнопкой мыши на рисунок.

Можно также зайти в меню «Формат рисунка» и изменить его размер, задав точные значения.

Обучение Word