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

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

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

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

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

Следующий код vba может помочь вам вставить несколько изображений и сразу изменить их размер до указанного размера, пожалуйста, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.

Код VBA: вставьте несколько изображений одинакового размера:

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

3. А затем нажмите F5 ключ для запуска этого кода, Приложения отображается окно, выберите папку, содержащую изображения, которые вы хотите вставить, см. снимок экрана:

4. Затем нажмите OK и появится окно подсказки, чтобы напомнить вам, хотите ли вы изменить размер изображений, см. снимок экрана:

5. Нажмите Да, и введите значения размера высоты и ширины, разделенные запятой, в текстовое поле, см. снимок экрана:

6, Затем нажмите OK, все вставленные изображения были переставлены в один размер, см. снимок экрана:

Внимание: размер блока - пруд в коде VBA.

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

Если в документе Word существует несколько изображений, с Kutools for WordАвтора Изменение размера изображений Утилита, вы можете быстро изменить размер всех изображений, как и у конкретного.

После установки Kutools for Word, пожалуйста, сделайте так:

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

2. И все изображения в этом текстовом документе были немедленно изменены, как и у выбранного, см. Снимок экрана:

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

---

Рекомендуемые инструменты для повышения производительности Word

 

Kutools For Word - Более 100 расширенных функций для Word, сэкономьте 50% времени

• Сложные и повторяющиеся операции можно производить разово за секунды.
• Вставляйте сразу несколько изображений из папок в документ Word.
• Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
• Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
• Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.

Узнать больше Загрузить сейчас покупка