Word форматирование нескольких рисунков

Иногда пользователю нужно разом вставить в документ Microsoft Word кучу картинок. Ну и, чисто эстетически, хочется, чтобы все они были одного размера. Только вот по одному исправлять – времени много уходит. А ведь в приложении есть специальный инструмент, с помощью которого можно подогнать разом размер кучи изображений. Об этой функции я сегодня и расскажу.

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

Изменение размера одной картинки вручную

Самый простой способ изменить размер картинки в MS Word (который я постоянно практикую) – навести курсор на угол или любой край картинки и вытянуть его. А если нужно, чтобы по ширине они были схожи, можно ориентироваться по линейке.

Указать точную высоту и ширину вручную

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

Практически точно так же можно указать размер в окне с более подробными параметрами. Для этого нужно в том же разделе кликнуть на маленькую ссылку в правом нижнем углу этого меню.

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

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

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

В новом окне в поле «Имя» введу наименование, которое я предполагаю дать новому макросу, к примеру, «Размеры». После этого жму на кнопку «Создать».

В результате откроется окно «Microsoft Visual Basic For Applications». После чего в активном поле ввожу вот такое значение.

Sub Размеры

Dim i As Long

With ActiveDocument

For i = 1 To .InlineShapes.Count

With .InlineShapes (i)

.Height = 300

.Width = 800

End With

Next i

End With

End Sub

Здесь я задаю высоту в 300 пикселей, а ширину – в 800, но значения можно задать на свое усмотрение. После копирования сохраняю параметр, нажав на комбинацию клавиш Ctrl + S. Далее выхожу из этого активного окна.

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

Заключение

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

Post Views: 19 274

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

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

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

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

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

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

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

Обновление за январь 2022 года:

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

• Шаг 1. Загрузите средство восстановления и оптимизации ПК (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 всегда с ActiveDocument For i = 1 For .InlineShapes.Count С .InlineShapes(i) .Height = 500 .Width = 600 End With Next i End With Sub End

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

Sub resize() Dim i всегда с ActiveDocument For i = 1 To .InlineShapes.Count С .InlineShapes (i) .Height = дюймы в точках (2) .Width = дюймы в точках (2) End with Next i End with End Sub

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

Sub resize() Dim i As Long с ActiveDocument для i = 1 до .InlineShapes.Count с .InlineShapes(i) .ScaleHeight = 30 .ScaleWidth = 40 End next i End with End Sub

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

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

Шаг 9: Откроется окно макросов. Щелкните Запустить с выбранным макросом.

Как только вы нажмете кнопку «Выполнить», вы заметите, что размер изменится для всех изображений.
СОВЕТ СОТРУДНИКОВ: Если у вас возникли проблемы с компьютером, нажмите здесь, чтобы исправить ошибки Windows и оптимизировать производительность системы.

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

1. Скачайте и установите инструмент для ремонта здесь.
2. Пусть он просканирует ваш компьютер.
3. Затем инструмент почини свой компьютер.

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

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

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

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

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

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

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

Шаг 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

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

Сообщение Просмотров: 1,036

Если вы сохраните документ как .docx, то сможете открыть его как zip-архив. Там будет медиа-папка со всеми изображениями (у меня были PNG-изображения). Затем вы можете использовать такие программы, как IrfanView, XnViewMP, FastStone Viewer для выполнения пакетных преобразований, таких как изменение размера, уменьшение глубины цвета и т.д. Упакуйте ваши изображения обратно в zip и переименуйте его в docx.

Например, в моем docx, полном скриншотов, мне нужно было уменьшить количество цветов до 8, что достаточно для документирования. После обработки мой 10 МБ документ стал 1,8 МБ, поэтому экономия может быть значительной. Всегда сохраняйте исходный документ на тот случай, если вы захотите восстановить изображения после чрезмерной деградации / обработки и т.д.

Для людей, которые имеют проблемы с unzip/zip, вот шаги:

rename mydoc.docx mydoc.zip
mkdir mydoc_unzip
cd mydoc_unzip
unzip ../mydoc.zip
... manipulate ....
zip -a ../new_doc.zip *
cd ..
rename new_doc.zip new_doc.docx

Я использую инструмент под названием Total Commander, который позволяет мне переходить непосредственно в файл docx (Ctrl-PgDn), затем распаковываю (копирую) папку мультимедиа во временную папку, выполняю манипуляции и копирую файлы мультимедиа обратно с помощью Total Commander.

Переименовав docx в zip, вы сможете исследовать его с помощью проводника Windows — все будет так же, как в случае с Total Commander — скопируйте папку мультимедиа во временную папку, управляйте изображениями, скопируйте их обратно в zip.

Как установить одно форматирование для всех картинок в документе

Сообщений [ 3 ]

Dim oShape As InlineShape
Dim oDoc As Document
Set oDoc = ActiveDocument
For Each oShape In oDoc.InlineShapes

Сообщений [ 3 ]

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

Изменение размера изображений вручную в Word

Изменение размера изображений с помощью VBA

Измените размер нескольких изображений одновременно с помощью Kutools for Word

Изменение размера изображений вручную в Word

1. Чтобы показать ручки изменения размера изображения, щелкнув по изображению;

2. Поместите курсор на один из маркеров размера изображения.

3. Перетаскивайте маркер изменения размера, пока размер изображения не станет подходящим для ваших нужд. Смотрите скриншот:

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

Изменение размера изображений с помощью VBA

С помощью следующего кода VBA вы можете изменить размер изображений до идеального. Вы можете сделать это следующим образом ：

В этом примере мы изменяем размер изображения до 1.78 дюйма в высоту и 3.17 дюйма в ширину.

1. Выберите картинку, размер которой хотите изменить;

2, нажмите Alt + F11 для открытия Microsoft Visual Basic для приложений окно;

3. Нажмите Модули от Вставить вкладку, скопируйте и вставьте следующий код VBA в Модули окно;

Код VBA: изменение размера одного изображения до определенного размера:

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub

4. Нажмите Run или F5 ключ для запуска кода VBA, и размер выбранного изображения был изменен до необходимого вам размера.

Внимание: В приведенном выше коде  В shp.Height = InchesToPoints (1.78) и shp.Width = InchesToPoints (3.17) высота и ширина изображения, вы можете изменить размер в соответствии с вашими потребностями.

С помощью этого кода VBA вы также не можете изменить размер всего или нескольких изображений одновременно. Вам нужно переходить между документом Word и Microsoft Visual Basic для приложений окно для выбора изображения и применения кода. Это слишком много времени.

Изменение размера изображений с помощью Kutools for Word

Работы С Нами Kutools for Word’s Изменение размера изображений Утилита, вы можете избавиться от этих надоедливых и трудоемких операций и быстро изменить размер всех изображений в документе.

1. Пожалуйста, примените эту утилиту, нажав Кутулс Плюс > Изменение размера. Смотрите скриншот:

2. Если вы хотите изменить размер всех изображений до определенного процента от их исходного размера, выберите один из шести процентов в раскрывающемся списке. Например, если вы хотите изменить размер всех изображений до 50% от их исходного размера, выберите 50%. После нажатия 25%, вы увидите, что все изображения были увеличены до 50%. Смотрите скриншот:

Если вы хотите настроить все изображения на одинаковый размер с выбранным, выберите изображение в качестве размера модели, а затем нажмите Кутулс Плюс > Изменение размера > Изменение размера изображений с выделением, и все изображения будут иметь одинаковый размер в зависимости от выбранного, см. снимок экрана:

Для получения более подробной информации о Kutools for WordАвтора Изменение размера изображений утилита, нажмите здесь.

Нажмите, чтобы скачать Kutools for Word и бесплатная пробная версия прямо сейчас!

Демо: изменение размера всех изображений сразу в Word