Как вставить и изменить размер изображений до одинакового размера в 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 немедленно будут изменены до размера выбранного изображения.
Лучшие инструменты для повышения производительности в Office
Kutools для Word– улучшите свой опыт работы с Word с помощью более чем 100 выдающихся функций!
🤖 Возможности Kutools AI: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...
📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различных форматах (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...
✏ Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Лёгкая очистка: Удалите лишние пробелы / Разрывы разделов / текстовые поля / гиперссылки. Для других инструментов удаления перейдите в группу Удалить...
➕ Творческие вставки: Вставить разделитель разрядов / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений. Откройте больше возможностей в группе Вставить...
🔍 Точные выделения: Точно определяйте нужные страницы / таблицы / фигуры / абзацы заголовка. Улучшайте навигацию благодаря расширенным функциям Выбрать ...
⭐ Уникальные улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов преобразования...
🌍 Поддержка более40 языков: Используйте Kutools на удобном вам языке – поддерживаются английский, испанский, немецкий, французский, китайский и ещё более40 языков!
Лучшие инструменты для повышения производительности в Office
Kutools для Word – 100+ инструментов для Word
- 🤖 Возможности Kutools AI: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка / Супер Перевод / Искусственный интеллект для редактирования / Проверка с помощью ИИ
- 📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Пакетно преобразовать в PDF
- ✏ Редактирование содержимого: Пакетный поиск и замена / Изменить размер всех изображений
- 🧹 Лёгкая очистка: Удалить лишние пробелы / Удалить разрывы разделов
- ➕ Творческие вставки: Вставить разделитель разрядов / Вставить флажки / Создать QR-коды
- 🌍 Поддержка более40 языков: Kutools говорит на вашем языке – поддерживается более40 языков!