В этой статье мы покажем вам, как быстро изменить размер нескольких изображений в документе 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 Для каждого objInlineShape в ActiveDocument.InlineShapes objInlineShape.Height = 500 objInlineShape.Width = 500 Следующий objInlineShape Для каждого objShape в ActiveDocument.Shapes objShape.Height = 500 objShape.Width = 500 XNUMX Следующий объект Конец сабвуфера
- Наконец, нажмите кнопку «Выполнить».
Ноты:
- Вы можете изменить значения в кодах «objInlineShape.Height = 500» и «objInlineShape.Width = 500», так как вам нужно изменить высоту и ширину изображений в стиле обтекания «В соответствии с текстом».
- Вы можете изменить значения в кодах «objShape.Height = 500» и «objShape.Width = 500», чтобы изменить высоту и ширину изображений не в стиле обтекания «В соответствии с текстом».
Решение проблем с документами
Документ Word, содержащий слишком много изображений, может не только замедлить скорость обработки, но и привести к повреждению документа. Один из способов — не вставлять слишком много изображений в файл Word, чтобы не столкнуться с такой проблемой. Другой способ, однако, состоит в том, чтобы получить инструмент для устранения проблем с docx заранее, поэтому вам не придется беспокоиться о потере важного файла.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая инструмент для исправления ошибок данных xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com
Меня действительно вдохновляют ваши писательские таланты, а также структура вашего блога. Это платная тема или вы ее сами настраивали? В любом случае, продолжайте писать качественно, сейчас редко встретишь такой замечательный блог, как этот..
Привет, я все время проверял веб-сайт postЯ здесь рано утром, так как мне нравится узнавать все больше и больше.
o.web20.услуги
Моя проблема заключалась в том, что когда я вставлял более крупные элементы, они исчезали со страницы. Так что я ковылял этот код.
Дополнительная ширинаPictures2fit()
Dim i As Long
С ActiveDocument
Для i = 1 для .InlineShapes.Count
С .InlineShapes(i)
Если .Ширина > 520 Тогда
.Ширина = 519
End If
Конец с
Затем я
Конец с
End Sub
Если его ширина превышает 520, ширина уменьшается до 519. Это примерно ширина обычного документа Word. Вы можете настроить 520 как вам нужно.
Спасибо за код VBA. Если кто-то хочет использовать ширину или высоту шкалы, то в коде можно использовать следующие параметры (80%):
Для каждого iShp в .InlineShapes
С иШп
Если .Type = wdInlineShapePicture или wdInlineShapeLinkedPicture, тогда
.Масштаб = 80
.Масштаб = 80
End If
Конец с
Следующий иШп
Отличный трюк с VBA… просто упоминается, что размеры указаны в «точках»… используйте Google для преобразования в дюймы или миллиметры
Команда F4 не работает на Mac (или Cmd Y). F4 кажется глобальной командой, поскольку она повторяет последнее действие, которое вы сделали, независимо от того, в какой программе вы находитесь; например, если вы некоторое время назад вставили поисковый запрос в свой браузер, он вставит этот текст в Word (но не предыдущую команду изменения размера). Не нашел обходного пути.