Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

Как вставить и изменить размер изображений до одинакового размера в Word?

Author Xiaoyang Last modified

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

Вставка и изменение размера нескольких изображений до одинакового размера в Word с использованием VBA

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


Вставка и изменение размера нескольких изображений до одинакового размера в Word с использованием VBA

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

  1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
  2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.
  3. 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
    
  4. Нажмите F5 для запуска этого кода. Появится окно Обзор. Выберите папку, содержащую изображения, которые вы хотите вставить, и нажмите OK.

    Browse window

  5. Появится запрос, спрашивающий, хотите ли вы изменить размер изображений. Нажмите Да.

    Confirmation dialog saying 'Do you want to resize all pictures?'

  6. Введите высоту и ширину в пунктах (пт), разделенные запятой, в появившееся текстовое поле, а затем нажмите OK.

    Dialog box to specify size

  7. Все вставленные изображения теперь будут изменены до указанных размеров.

    All the inserted images are resized


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

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

Kutools для Word,оснащённый ИИ 🤖, предлагает более 100 удобных функций для упрощения ваших задач.
  1. Настройте одно изображение до желаемого размера и выберите его. Затем нажмите Kutools Plus > Изменить размер > Изменить размер всех изображений на основе выделения.

    Resize All Images Based on Selection option on the Kutools Plus tab on the ribbon

Все изображения в документе Word немедленно будут изменены до размера выбранного изображения.

All pictures are resized to match the size of the selected picture

Kutools для Word — это идеальный надстройка для Word, которая упрощает вашу работу и повышает навыки обработки документов. Получите сейчас!

Лучшие инструменты для повышения производительности в офисе

Kutools for Word — Поднимите свой опыт работы с Word на новый уровень, используя более 100 впечатляющих функций!

🤖 Возможности ИИ Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (Сохраняет форматирование) / Супер Перевод (Сохраняет форматирование) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

📘 Мастерство работы с Документом: Разделить страницы / Объединить документы / Экспортировать диапазон в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF...

Редактирование текста сообщения: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Легкая очистка: Удалить лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для получения дополнительных инструментов удаления перейдите в группу Удалить...

Креативные вставки: Вставить тысячные разделители / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Узнайте больше в группе Вставить...

🔍 Точные выделения: Определить конкретные страницы / Таблицы / Фигуры / Абзацы заголовков / Улучшайте навигацию с помощью дополнительных функций выбора...

Особые улучшения: Перейти к любому диапазону / Автоматическая вставка повторяющегося текста / Переключение между окнами документа /11 инструментов преобразования...

🌍 Поддержка более40 языков: Используйте Kutools на предпочитаемом языке — поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и еще более40 языков!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите попробовать эти функции? Загрузите Kutools for Word сейчас! 🚀
 

✨ 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