Обычно в документ Word можно вставить несколько изображений одновременно в их исходных размерах. Однако бывают случаи, когда вам необходимо убедиться, что все изображения имеют одинаковый размер, чтобы они выглядели единообразно и профессионально. Изменение размера каждого изображения вручную может занять много времени. В этой статье мы обсудим, как вставить в документ Word несколько изображений одинакового размера, предоставляя более эффективный способ управления изображениями и поддержания единообразия макета вашего документа.
Вставьте несколько изображений одинакового размера в документ Word с кодом VBA
Следующий код VBA поможет вам вставить несколько изображений и изменить их размер до указанных вами размеров одновременно. Пожалуйста, выполните следующие действия:
- Удерживая нажатой ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
- Нажмите Вставить >Модулии вставьте следующий код в Модули окно.
re>Sub InsertSpecificNumberOfPictureForEachPage() Dim xDlg As FileDialog Dim xFilePath As String Dim xFileName As String Dim xMsbBoxRtn As Long Dim xPicSize As String Dim xShape As InlineShape Set xDlg = Application.FileDialog(msoFileDialogFolderPicker) If xDlg.Show = -1 Then xFilePath = xDlg.SelectedItems(1) " Else Exit Sub End If xFileName = Dir(xFilePath *.*", vbNormal) While xFileName <> "" If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _ Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then GoTo LblCtn End If With Selection .InlineShapes.AddPicture xFilePath .") - 1) .ParagraphFormat.Alignment = wdAlignParagraphCenter .TypeParagraph End With LblCtn: xFileName = Dir() Wend ActiveDocument.InlineShapes(1).Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word") If xMsbBoxRtn = 6 Then xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "") End If For Each xShape In ActiveDocument.InlineShapes xShape.Height = Split(xPicSize, ",")(0) xShape.Width = Split(xPicSize, ",")(1) Next xShape End Sub
Press F5 для запуска этого кода. Вставить Появится окно. Выберите папку, содержащую изображения, которые вы хотите вставить, и нажмите OK. 
Измените размер всех изображений до одинакового размера на основе определенного изображения с помощью Kutools for Word
Если в документе Word существует несколько изображений, с Kutools for WordАвтора Изменение размера изображений Утилита, вы можете быстро изменить размер всех изображений, как и у конкретного.
Kutools for Word, оснащен ИИ , предлагает более 100 удобных функций для упрощения ваших задач.
После установки Kutools for Word, пожалуйста, сделайте так:
1. Отрегулируйте одно изображение до желаемого размера, затем выберите его, затем нажмите Кутулс Плюс > Изменение размера > Изменение размера изображений с выделением,
2. И все изображения в этом текстовом документе были немедленно изменены до размера выбранного изображения,
Лучшие инструменты для офисной работы
Kutools for Word — Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Текстовые поля / Гиперссылки / Дополнительные инструменты для снятия см. Удалить группа.
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Несколько изображений / Узнайте больше в Вставить группа.
Хотите попробовать эти функции? Загрузите Kutools for Word прямо сейчас!
Бесплатная загрузка Купить Узнайте больше о Kutools для Word
Лучшие инструменты для офисной работы
Как сделать все картинки одинакового размера в Microsoft Word
Вы хотите вставить несколько изображений в документ Word, но они имеют разный размер. Однако вы хотите, чтобы они были одинакового размера в вашем документе. Вы можете использовать правильные инструменты для редактирования изображений, но иногда у вас нет к ним доступа. В таких ситуациях вы можете использовать Microsoft Word для изменения размера всех изображений.
Изменение размера всех изображений до одинаковой высоты и ширины с помощью клавиши клавиатуры
а. Щелкните правой кнопкой мыши на первом изображении, откройте поле «Размер и положение» (или откройте поле из «Изображение» -> «Формат» -> «Размер». Вам нужно поле размера, а не только параметры высоты и ширины на вкладке, чтобы заблокировать соотношение сторон, иначе не получится) б. Снимите флажок «Блокировать соотношение сторон». с участием. Измените высоту и ширину на желаемый размер и закрыть коробку e.Нажмите на следующее изображение и нажмите F4. Продолжайте кликать по последовательным изображениям и нажимать F4 (для MAC используйте «команда — Y»). и. Для больших документов используйте вертикальную полосу прокрутки справа для перехода от одного изображения к другому.
Использование макросов
Иногда нам хотелось бы, чтобы у нас была единственная кнопка, которую мы могли бы нажать, чтобы автоматически выполнить сложную задачу. Это то, что делают макросы в Word. Макросы автоматизируют конкретную задачу, которая в противном случае потребовала бы ее повторения. Вы можете создать макрос, записав шаги, которым вы хотите следовать, или написав серию инструкций.
Так как нам нужно изменить размер всех изображений в MS Word, мы будем использовать макросы. Мы создаем его, написав код для изменения размера изображений. Не запутайтесь. Вот подробные шаги:
Обновление за январь 2022 года:
- Шаг 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 и оптимизировать производительность системы.
Как в Microsoft Word сделать картинки одинакового размера
Иногда пользователю нужно разом вставить в документ Microsoft 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. Далее выхожу из этого активного окна.
Ввожу данное значение в поле и сохраняю изменения
После этого вновь, тем же способом, открываю окно «Макросы», выбираю только что созданный пункт и жму на кнопку «Выполнить». После этого размеры изображений будут изменяться автоматически и подгоняться под указанные мной рамки.
Макрос готов, теперь осталось только активировать его нажатием на кнопку «Выполнить»
