В этой статье мы покажем вам, как быстро изменить размер нескольких изображений в документе Word в соответствии с определенными требованиями.
В настоящее время нет ничего необычного в том, что в документ Word вставляется много изображений. Тем не менее, иногда эти изображения должны быть установлены в одном размере. И обычно вставленное изображение имеет стиль обтекания «В соответствии с текстом», что означает, что мы не можем выбрать их все одновременно. Таким образом, настройка размера картинки может занять много времени, даже если их всего несколько.
Ниже приведены 2 быстрых способа, которые могут оказаться полезными.
Способ 1: Используйте «F4»
- Первый и первыйost, дважды щелкните изображение, чтобы войти в режим редактирования.
- Во-вторых, нажмите кнопку со стрелкой вниз в группе «Размер» на вкладке «Формат», чтобы открыть диалоговое окно «Макет».
- В открывшемся диалоговом окне сначала измените высоту и ширину, как вам нужно.
- Затем снимите флажки «Блокировать соотношение сторон» и «Относительно исходного размера изображения» в части «Масштаб».
- Наконец, нажмите «ОК».
- Далее нажмите на другую картинку и нажмите «F4». Вы обнаружите, что второе изображение теперь имеет тот же размер, что и предыдущее. «F4» здесь может повторить последнее действие.
Способ 2: используйте коды VBA
Вообще говоря, метод 1 уже может сэкономить вам много времени. Однако, если вам скучно щелкать изображение и нажимать клавишу «F4», вы можете воспользоваться помощью кодов VBA, чтобы завершить задачу раз и навсегда.
- К start с, перейдите на вкладку «Разработчик».
- Затем нажмите «Visual Basic» в группе «Код» или нажмите «Alt + F11», чтобы открыть редактор VBA.
- Далее нажмите «Обычный».
- Нажмите «Вставить».
- И выберите «Модуль».
- Затем дважды щелкните новый модуль, чтобы открыть область редактирования.
- Вставьте туда следующие коды:
Sub SetupAllPictureSize() Dim objInlineShape As InlineShape Dim objShape As Shape For Each objInlineShape In ActiveDocument.InlineShapes objInlineShape.Height = 500 objInlineShape.Width = 500 Next objInlineShape For Each objShape In ActiveDocument.Shapes objShape.Height = 500 objShape.Width = 500 Next objShape End Sub
- Наконец, нажмите кнопку «Выполнить».
Примечание:
- Вы можете изменить значения в кодах «objInlineShape.Height = 500» и «objInlineShape.Width = 500», так как вам нужно изменить высоту и ширину изображений в стиле обтекания «В соответствии с текстом».
- Вы можете изменить значения в кодах «objShape.Height = 500» и «objShape.Width = 500», чтобы изменить высоту и ширину изображений не в стиле обтекания «В соответствии с текстом».
Решение проблем с документами
Документ Word, содержащий слишком много изображений, может не только замедлить скорость обработки, но и привести к повреждению документа. Один из способов — не вставлять слишком много изображений в файл Word, чтобы не столкнуться с такой проблемой. Другой способ, однако, состоит в том, чтобы получить инструмент для устранения проблем с docx заранее, поэтому вам не придется беспокоиться о потере важного файла.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая инструмент для исправления ошибок данных xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com