2 метода быстрого изменения размера изображений в документе Word

Поделись сейчас:

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

В настоящее время нет ничего необычного в том, что в документ Word вставляется много изображений. Тем не менее, иногда эти изображения должны быть установлены в одном размере. И обычно вставленное изображение имеет стиль обтекания «В соответствии с текстом», что означает, что мы не можем выбрать их все одновременно. Таким образом, настройка размера картинки может занять много времени, даже если их всего несколько.

Ниже приведены 2 быстрых способа, которые могут оказаться полезными.

Способ 1: Используйте «F4»

  1. Первый и первыйost, дважды щелкните изображение, чтобы войти в режим редактирования.
  2. Во-вторых, нажмите кнопку со стрелкой вниз в группе «Размер» на вкладке «Формат», чтобы открыть диалоговое окно «Макет».Нажмите кнопку со стрелкой вниз
  3. В открывшемся диалоговом окне сначала измените высоту и ширину, как вам нужно.
  4. Затем снимите флажки «Блокировать соотношение сторон» и «Относительно исходного размера изображения» в части «Масштаб».
  5. Наконец, нажмите «ОК».Установите новую высоту и ширину -> Очистить поля -> Нажмите «ОК».
  6. Далее нажмите на другую картинку и нажмите «F4». Вы обнаружите, что второе изображение теперь имеет тот же размер, что и предыдущее. «F4» здесь может повторить последнее действие.

Способ 2: используйте коды VBA

Вообще говоря, метод 1 уже может сэкономить вам много времени. Однако, если вам скучно щелкать изображение и нажимать клавишу «F4», вы можете воспользоваться помощью кодов VBA, чтобы завершить задачу раз и навсегда.

  1. К start с, перейдите на вкладку «Разработчик».
  2. Затем нажмите «Visual Basic» в группе «Код» или нажмите «Alt + F11», чтобы открыть редактор VBA.Нажмите «Разработчик» -> нажмите «Visual Basic».
  3. Далее нажмите «Обычный».
  4. Нажмите «Вставить».
  5. И выберите «Модуль».Нажмите «Обычный» -> нажмите «Вставить» -> выберите «Модуль».
  6. Затем дважды щелкните новый модуль, чтобы открыть область редактирования.
  7. Вставьте туда следующие коды:
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 Следующий объект Конец сабвуфера
  1. Наконец, нажмите кнопку «Выполнить».Вставьте коды -> нажмите «Выполнить».

Ноты:

  1. Вы можете изменить значения в кодах «objInlineShape.Height = 500» и «objInlineShape.Width = 500», так как вам нужно изменить высоту и ширину изображений в стиле обтекания «В соответствии с текстом».
  2. Вы можете изменить значения в кодах «objShape.Height = 500» и «objShape.Width = 500», чтобы изменить высоту и ширину изображений не в стиле обтекания «В соответствии с текстом».

Решение проблем с документами

Документ Word, содержащий слишком много изображений, может не только замедлить скорость обработки, но и привести к повреждению документа. Один из способов — не вставлять слишком много изображений в файл Word, чтобы не столкнуться с такой проблемой. Другой способ, однако, состоит в том, чтобы получить инструмент для устранения проблем с docx заранее, поэтому вам не придется беспокоиться о потере важного файла.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая инструмент для исправления ошибок данных xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

7 ответов на «2 метода быстрого изменения размера изображений в документе Word»

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

  2. Привет, я все время проверял веб-сайт postЯ здесь рано утром, так как мне нравится узнавать все больше и больше.

  3. Моя проблема заключалась в том, что когда я вставлял более крупные элементы, они исчезали со страницы. Так что я ковылял этот код.

    Дополнительная ширинаPictures2fit()
    Dim i As Long
    С ActiveDocument
    Для i = 1 для .InlineShapes.Count
    С .InlineShapes(i)
    Если .Ширина > 520 Тогда
    .Ширина = 519
    End If
    Конец с
    Затем я
    Конец с
    End Sub

    Если его ширина превышает 520, ширина уменьшается до 519. Это примерно ширина обычного документа Word. Вы можете настроить 520 как вам нужно.

  4. Спасибо за код VBA. Если кто-то хочет использовать ширину или высоту шкалы, то в коде можно использовать следующие параметры (80%):

    Для каждого iShp в .InlineShapes
    С иШп
    Если .Type = wdInlineShapePicture или wdInlineShapeLinkedPicture, тогда
    .Масштаб = 80
    .Масштаб = 80
    End If
    Конец с
    Следующий иШп

  5. Отличный трюк с VBA… просто упоминается, что размеры указаны в «точках»… используйте Google для преобразования в дюймы или миллиметры

  6. Команда F4 не работает на Mac (или Cmd Y). F4 кажется глобальной командой, поскольку она повторяет последнее действие, которое вы сделали, независимо от того, в какой программе вы находитесь; например, если вы некоторое время назад вставили поисковый запрос в свой браузер, он вставит этот текст в Word (но не предыдущую команду изменения размера). Не нашел обходного пути.

Оставьте комментарий

Ваш электронный адрес не будет опубликован. Обязательные поля помечены * *