Note: The other languages of the website are Google-translated. Back to English

 Как вставить несколько изображений одного размера в документ 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 ключ для запуска этого кода, Приложения отображается окно, выберите папку, содержащую изображения, которые вы хотите вставить, см. снимок экрана:

doc вставить изображения одинакового размера 1

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

doc вставить изображения одинакового размера 2

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

doc вставить изображения одинакового размера 3

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

doc вставить изображения одинакового размера 4

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


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

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

Kutools for Word : с более чем 100 удобными надстройками Word, попробуйте бесплатно без ограничений в течение 60 дней. 

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

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

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

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


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

 

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

  • Сложные и повторяющиеся операции можно производить разово за секунды.
  • Вставляйте сразу несколько изображений из папок в документ Word.
  • Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
  • Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
Сортировать комментарии по
Комментарии (2)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет здравствуй
Я Сода, я здесь, чтобы сказать, что я действительно многому научился благодаря вашему веб-сайту и информации, которую вы предоставляете.
Спасибо за это :)
Soda
Этот комментарий был сведен к минимуму модератором на сайте
спасибо за помощь... очень интересно... большая работа... удачи
Хичам Серджини
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0  Характеристики
Предлагаемые места