Перейти до основного матеріалу

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

Зазвичай у документ Word можна вставити відразу кілька зображень із оригінальним розміром. Іноді вам потрібно розташувати ці зображення однакового розміру під час вставлення. У цій статті я розповім про те, як вставити декілька зображень однакового розміру в документ Word.

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

Змініть розмір усіх зображень до однакового розміру на основі конкретного зображення за допомогою Kutools for Word


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

Наступний код vba може допомогти вам вставити кілька зображень та змінити їх розмір до вказаного розміру одночасно, будь-ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

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

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

4. Потім натисніть OK і вискакує поле promptf, щоб нагадати вам, якщо ви хочете змінити розмір зображень, див. знімок екрана:

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. Пристосуйте одне зображення до потрібного розміру, а потім виберіть його, а потім клацніть Kutools Plus > Зміна розміру > Змініть розмір зображень із виділенням, див. скріншот:

2. І всі зображення в цьому документі Word були негайно змінені так само, як вибраний, див. Знімок екрана:

Натисніть, щоб завантажити Kutools for Word і безкоштовна пробна версія зараз!

Найкращі інструменти продуктивності офісу

Kutools for Word - Підніміть свій досвід Word із Over 100 Чудові особливості!

Зануртеся в виділені функції нижче або натисніть тут, щоб дослідити всю потужність Kutools for Word.

📘 Майстерність документів: Розділити сторінки  /  Об’єднати документи  /  Експортувати вибране в різні формати (PDF/TXT/DOC/XLSX)  /  Пакетне перетворення в PDF  /  Експортувати сторінки як зображення  /  Друк кількох файлів одночасно ...

Редагування змісту: Пакетний пошук та заміна між кількома файлами   /  Змінити розмір усіх зображень   /  Транспонування рядків і стовпців таблиці  /  Перетворити таблицю в текст ...

🧹 Очищення без зусильЗмітати Зайві простори  /  Розбиття розділів  /   Усі заголовки  /  Текстові поля  /  Гіперпосилання  /  Щоб отримати додаткові інструменти для видалення, перейдіть до нашої групи видалення

Творчі вставки: Insert Роздільники тисяч  /  Прапорці  /  радіо кнопки  /  QR-код  /  Штрих-код  /  Таблиця діагональних ліній  /  Заголовок рівняння  /  Підпис зображення  /  Заголовок таблиці  /  Кілька зображень  /  Дізнайтеся більше в нашій групі вставок

???? Точність вибору: Визначте конкретні сторінки  /  Таблиці  /  форми  /  заголовок абзаців  /  Переміщуйтеся з легкістю за допомогою нашої групи вибору

Покращення зірок: Швидка навігація до будь-якого місця  /  автоматичне вставлення повторюваного тексту  /  плавно перемикатися між вікнами документів  /  11 Інструменти перетворення ...

Перетворіть свої завдання Word за допомогою Kutools. 👉 Завантажте зараз із 30-денною пробною версією 🚀.

 
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Percentuale/rapporto? pixel? cm?
GRAZIE!
This comment was minimized by the moderator on the site
Hello, Grasselli
The unit size is pond in the above VBA code.
Thank you!
This comment was minimized by the moderator on the site
thanks for help ... it is very interesting ... big job ... good luck
This comment was minimized by the moderator on the site
Hi, hello
I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
Thanks for that :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations