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

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

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

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

Змініть розмір усіх зображень до однакового розміру на основі конкретного зображення за допомогою Kutools для 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 для Word

Якщо у вашому документі Word існує кілька зображень, за допомогою Kutools для WordАвтора Змінити розмір зображень утиліта, ви можете швидко змінити розмір усіх зображень так само, як і конкретний.

Kutools для Word : з більш ніж 100 зручними надбудовами Word, які можна спробувати без обмежень протягом 60 днів. 

після установки Kutools для Word, будь ласка, зробіть так:

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

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

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


Рекомендовані засоби підвищення продуктивності слів

 

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

  • Складні та повторювані операції можна виконати одноразово за кілька секунд.
  • Вставте кілька зображень між папками в документ Word одночасно.
  • Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
  • Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
  • Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...
Коментарі (4)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт привіт
Я Сода, я тут, щоб сказати це, я дійсно багато дізнаюся з вашого веб-сайту та інформації, яку ви надаєте.
Дякую за це :)
Цей коментар був мінімізований модератором на сайті
дякую за допомогу ... це дуже цікаво ... велика робота ... удачі
Цей коментар був мінімізований модератором на сайті
Molto bello e utile! Чи я не закриваю себе окремо, у коді VBA з критерієм доповнення/зменшення розмірів зображення? Percentuale/rapporto? піксель? см?
GRAZIE!
Цей коментар був мінімізований модератором на сайті
Привіт, Грасселлі
Розмір одиниці – ставок у наведеному вище коді VBA.
Дякую!
There are no comments posted here yet
Будь ласка, залишайте свої коментарі англійською мовою
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL