Как сделать все картинки одинакового размера в Microsoft Word



Обновлено March 2024: перестаньте получать сообщения об ошибках и замедлите работу вашей системы с помощью нашего инструмента оптимизации. Получить сейчас в эту ссылку
  1. Скачайте и установите инструмент для ремонта здесь.
  2. Пусть он просканирует ваш компьютер.
  3. Затем инструмент почини свой компьютер.

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

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

а. Щелкните правой кнопкой мыши первое изображение, откройте поле «Размер и положение» (или откройте поле из поля Изображение -> Формат -> Размер. Вам нужно поле размера, а не только параметры высоты и ширины на вкладке, чтобы заблокировать соотношение сторон, иначе не получится)
б. Отключите «Заблокировать соотношение сторон».
с. Измените высоту и ширину до желаемого размера
д. Закройте коробку
е. Щелкните следующее изображение и нажмите F4. Продолжайте, нажимая на последовательные изображения и нажимая F4 (для MAC используйте «команду - Y»).
е. Для больших документов используйте вертикальную полосу прокрутки справа для перемещения от одного изображения к другому.

Использование макросов

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

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

Поскольку нам нужно изменить размер всех изображений в MS Word, мы воспользуемся помощью макросов. Мы создаем его, написав код для изменения размера картинок. Не запутайся. Вот подробные шаги:



Обновление за март 2024 года:

Теперь вы можете предотвратить проблемы с ПК с помощью этого инструмента, например, защитить вас от потери файлов и вредоносных программ. Кроме того, это отличный способ оптимизировать ваш компьютер для достижения максимальной производительности. Программа с легкостью исправляет типичные ошибки, которые могут возникнуть в системах Windows - нет необходимости часами искать и устранять неполадки, если у вас под рукой есть идеальное решение:

  • Шаг 1: Скачать PC Repair & Optimizer Tool (Windows 10, 8, 7, XP, Vista - Microsoft Gold Certified).
  • Шаг 2: Нажмите «Начать сканирование”, Чтобы найти проблемы реестра Windows, которые могут вызывать проблемы с ПК.
  • Шаг 3: Нажмите «Починить все», Чтобы исправить все проблемы.

скачать



Шаг 1: Откройте файл Word, в котором вы хотите создать все изображения одинакового размера.

Шаг 2: Нажмите на первое фото в файле, чтобы выбрать его. Затем нажмите на вкладку «Вид» вверху.

Шаг 3: Нажмите на Макросы.

Шаг 4: откроется всплывающее окно. Введите имя в поле под именем макроса. Вы можете дать ему имя по своему выбору. Для лучшего понимания мы назовем это изменением размера.

Затем нажмите Создать.

Шаг 5. Откроется новое окно Microsoft Visual Basic для приложений. Выберите существующий код и удалите его.

Шаг 6: Затем скопируйте один из следующих кодов и вставьте его в окно.

Тип A: Используйте следующий код, если вы хотите изменить высоту и ширину в пикселях. Замените 500 и 600 своими собственными значениями.

Sub resize () Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes (i) .Height = 500 .Width = 600 Конец со следующим i Конец с концом Sub

Тип B: используйте эту опцию, если вы хотите изменить размер в дюймах. Замените 2 на ваше значение.

Sub resize () Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes (i) .Height = InchesToPoints (2) .Width = InchesToPoints (2) End with Next i End with End Sub

Тип C: если вы хотите масштабировать изображения, следующий код поможет вам заменить 30 и 40 на ваши предпочтительные значения.

Sub resize () Dim i As Long с ActiveDocument для i = 1 до .InlineShapes.Count With .InlineShapes (i) .ScaleHeight = 30 .ScaleWidth = 40 Конец следующим i Конец с End Sub

Шаг 7. После копирования закройте окно Microsoft Visual Basic для приложений, щелкнув значок крестика.

Шаг 8: Когда изображение выбрано, снова нажмите «Макросы» на вкладке «Вид».

Шаг 9: Откроется окно «Макросы». Нажмите Run с выбранным макросом.

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

https://support.office.com/en-us/article/change-the-size-of-a-picture-shape-text-box-or-wordart-98929cf6-8eab-4d20-87e9-95f2d33c1dde



Совет эксперта: Этот инструмент восстановления сканирует репозитории и заменяет поврежденные или отсутствующие файлы, если ни один из этих методов не сработал. Это хорошо работает в большинстве случаев, когда проблема связана с повреждением системы. Этот инструмент также оптимизирует вашу систему, чтобы максимизировать производительность. Его можно скачать по Щелчок Здесь