Как вставить и изменить размер изображений до одинакового размера в Word?
Обычно вы можете вставить несколько изображений одновременно в документ Word с их исходными размерами. Однако бывают случаи, когда необходимо обеспечить одинаковый размер всех изображений для создания последовательного и профессионального вида. Вручную изменять размер каждого изображения может быть очень трудоемко. Это руководство покажет вам, как эффективно вставить несколько изображений в документ Word и изменить их размеры равномерно, гарантируя профессиональный и связный макет.
Вставка и изменение размера нескольких изображений до одинакового размера в Word с использованием VBA
Следующий код VBA поможет вам вставить несколько изображений и изменить их размер до указанных вами размеров за один раз. Пожалуйста, следуйте этим шагам:
- Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
- Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.
- Нажмите F5 для запуска этого кода. Появится окно Обзор. Выберите папку, содержащую изображения, которые вы хотите вставить, и нажмите OK.
- Появится запрос, спрашивающий, хотите ли вы изменить размер изображений. Нажмите Да.
- Введите высоту и ширину в пунктах (пт), разделенные запятой, в появившееся текстовое поле, а затем нажмите OK.
- Все вставленные изображения теперь будут изменены до указанных размеров.
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 & xFileName, False, True
.TypeParagraph
.Collapse wdCollapsEnd
.TypeText Left(xFileName, InStrRev(xFileName, ".") - 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
Изменение размера всех изображений в соответствии с определенным изображением с помощью Kutools для Word
Когда ваш документ Word содержит несколько изображений, изменение их размера по одному может быть утомительным. С помощью Kutools для Word утилита Изменить размер изображений позволяет быстро изменить размер всех изображений в соответствии с размером определенного изображения.
- Настройте одно изображение до желаемого размера и выберите его. Затем нажмите Kutools Plus > Изменить размер > Изменить размер всех изображений на основе выделения.
Все изображения в документе Word немедленно будут изменены до размера выбранного изображения.
Лучшие инструменты для повышения производительности в офисе
Kutools for Word — Поднимите свой опыт работы с Word на новый уровень, используя более 100 впечатляющих функций!
🤖 Возможности ИИ Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (Сохраняет форматирование) / Супер Перевод (Сохраняет форматирование) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...
📘 Мастерство работы с Документом: Разделить страницы / Объединить документы / Экспортировать диапазон в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF...
✏ Редактирование текста сообщения: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Удалить лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для получения дополнительных инструментов удаления перейдите в группу Удалить...
➕ Креативные вставки: Вставить тысячные разделители / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Узнайте больше в группе Вставить...
🔍 Точные выделения: Определить конкретные страницы / Таблицы / Фигуры / Абзацы заголовков / Улучшайте навигацию с помощью дополнительных функций выбора...
⭐ Особые улучшения: Перейти к любому диапазону / Автоматическая вставка повторяющегося текста / Переключение между окнами документа /11 инструментов преобразования...
🌍 Поддержка более40 языков: Используйте Kutools на предпочитаемом языке — поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и еще более40 языков!

✨ Kutools for Office — Одна установка, пять мощных инструментов!
Включает Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 Получите все5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Мгновенно экономьте время и повышайте продуктивность
Лучшие инструменты для повышения производительности в офисе
Kutools for Word - 100+ инструментов для Word
- 🤖 Возможности ИИ Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка / Супер Перевод / Искусственный интеллект для редактирования / Проверка с помощью ИИ
- 📘 Мастерство работы с Документом: Разделить страницы / Объединить документы / Пакетное преобразование в PDF
- ✏ Редактирование текста сообщения: Пакетный поиск и замена / Изменить размер всех изображений
- 🧹 Легкая очистка: Удалить лишние пробелы / Удалить разрывы разделов
- ➕ Креативные вставки: Вставить тысячные разделители / Вставить флажки / Создать QR-коды
- 🌍 Поддержка более40 языков: Kutools говорит на вашем языке — поддерживаются более40 языков!