Как да вмъкна няколко снимки с еднакъв размер в документ на Word?

Обикновено можете да вмъкнете няколко изображения наведнъж в документ на Word с оригиналния им размер. Понякога трябва да подредите тези изображения в еднакъв размер, когато ги вмъквате. В тази статия ще говоря за това как да вмъкнете няколко снимки с еднакъв размер в документ на Word.

Вмъкнете няколко картини с еднакъв размер в Word документ с VBA код

Преоразмерете всички снимки до еднакъв размер въз основа на конкретно изображение с Kutools за 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 ключ за изпълнение на този код, a паса се показва прозорец, моля, изберете папката, която съдържа изображенията, които искате да вмъкнете, вижте екранната снимка:

4, След това кликнете OK и изскача поле за подкана, за да ви напомни дали искате да преоразмерите снимките, вижте екранната снимка:

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

6, И после щракнете върху OK, всички вмъкнати изображения са пренаредени с еднакъв размер, вижте екранната снимка:

Забележка: размерът на единицата е езерце във VBA код.

Преоразмерете всички снимки до еднакъв размер въз основа на конкретно изображение с Kutools за Word

Ако във вашия документ на Word има няколко картини, с Kutools за WordЕ Преоразмеряване на изображения помощна програма, можете бързо да преоразмерите всички изображения като същото като конкретното.

След инсталиране Kutools за Word, моля, направете следното:

1. Коригирайте една снимка до желания от вас размер, след това я изберете и след това щракнете Kutools плюс > Преоразмеряване > Преоразмеряване на изображения с селекция, вижте екранна снимка:

2. И всички изображения в този Word документ са преоразмерени като избраното веднага, вижте екранната снимка:

Щракнете, за да изтеглите Kutools за Word и безплатна пробна версия сега!

Най-добрите инструменти за продуктивност в офиса

Kutools за Word - Подобрете своя Word опит с Over 100 Забележителни функции!

🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание  /  Пренаписване на текст  /  Обобщаване на документи  /  Запитване за информация въз основа на Документ, всичко това в Word

📘 Владеене на документи: Разделяне на страници  /  Обединяване на документи  /  Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...)  /  Пакетно конвертиране в PDF  /  Експортиране на страници като изображения  /  Отпечатайте няколко файла наведнъж...

✏ Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове  /  Преоразмеряване на всички снимки  /  Транспониране на редовете и колоните на таблицата  /  Преобразуване на таблица в текст...

🧹 Почистване без усилие: Изметете Допълнителни пространства  /  Прекъсвания на раздели  /  Всички заглавки  /  Текстови полета  /  Хипервръзки  / За повече инструменти за премахване се насочете към нашия Премахване на група...

➕ Творчески вложки: Вмъкване Хилядни разделители  /  Квадратчета  /  Радио бутони  /  QR Code  /  Баркод  /  Таблица с диагонални линии  /  Надпис на уравнение  /  Надпис на изображението  /  Надпис на таблица  /  Множество снимки  / Открийте повече в Вмъкване на група...

🔍 Прецизни селекции: Точна точка конкретни страници  /  таблици  /  форми  /  заглавни параграфи  / Подобрете навигацията с още Изберете функции...

⭐ Звездни подобрения: Навигирайте бързо до всяко място  /  автоматично вмъкване на повтарящ се текст  /  безпроблемно превключване между прозорците на документи  /  11 Инструменти за конвертиране...

👉 Искате ли да изпробвате тези функции? Kutools за Word предлага a 60-дневен безплатен пробен период, без ограничения! ????

Безплатно сваляне     Вижте повече     Поръчай сега