Jak wstawić wiele zdjęć o tym samym rozmiarze w dokumencie programu Word?

Zwykle można wstawić wiele obrazów naraz w dokumencie programu Word w oryginalnym rozmiarze. Czasami podczas wstawiania musisz ustawić te obrazy w tym samym rozmiarze. W tym artykule omówię, jak wstawić wiele obrazów o tym samym rozmiarze do dokumentu Word.

Wstaw wiele zdjęć o tym samym rozmiarze w dokumencie Word z kodem VBA

Zmień rozmiar wszystkich zdjęć do tego samego rozmiaru na podstawie określonego obrazu za pomocą Kutools for Word

Wstaw wiele zdjęć o tym samym rozmiarze w dokumencie Word z kodem VBA

Poniższy kod VBA może pomóc we wstawieniu wielu zdjęć i jednoczesnej zmianie ich rozmiaru do określonego rozmiaru, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.

Kod VBA: wstaw wiele zdjęć o tym samym rozmiarze:

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. A następnie naciśnij F5 klucz do uruchomienia tego kodu, a Przeglądaj zostanie wyświetlone okno, wybierz folder zawierający obrazy, które chcesz wstawić, zobacz zrzut ekranu:

4. Następnie kliknij OK i pojawi się okienko zachęty, aby przypomnieć, czy chcesz zmienić rozmiar zdjęć, zobacz zrzut ekranu:

5. Kliknij Taki wpisz numery rozmiarów wysokości i szerokości, które są oddzielone przecinkiem w polu tekstowym, patrz zrzut ekranu:

6. A następnie kliknij OK, wszystkie wstawione obrazy zostały uporządkowane w tym samym rozmiarze, patrz zrzut ekranu:

Note: rozmiar jednostki to staw w kodzie VBA.

Zmień rozmiar wszystkich zdjęć do tego samego rozmiaru na podstawie określonego obrazu za pomocą Kutools for Word

Jeśli w dokumencie programu Word istnieje wiele obrazów, z rozszerzeniem Kutools dla Worda'S Zmień rozmiar obrazów narzędzie, możesz szybko zmienić rozmiar wszystkich obrazów na taki sam, jak określony.

Po zainstalowaniu Kutools dla Worda, zrób tak:

1. Dopasuj jeden obraz do żądanego rozmiaru, a następnie wybierz go, a następnie kliknij Kutools Plus > Resize > Zmień rozmiar obrazów za pomocą zaznaczeniazobacz zrzut ekranu:

2. Wszystkie obrazy w tym dokumencie tekstowym zostały natychmiast zmienione tak, jak wybrane, zobacz zrzut ekranu:

Kliknij, aby pobrać Kutools for Word i bezpłatną wersję próbną już teraz!

Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość  /  Przepisz tekst  /  Podsumowanie dokumentów  /  Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...)  /  Wsadowa konwersja do formatu PDF  /  Eksportuj strony jako obrazy  /  Drukuj wiele plików jednocześnie...

✏ Edycja treści: Znajdź i zamień partii w wielu plikach  /  Zmień rozmiar wszystkich zdjęć  /  Transponuj wiersze i kolumny tabeli  /  Konwertuj tabelę na tekst...

🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie  /  Podziały sekcji  /  Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...

➕ Kreatywne wstawki: Wstawić Tysiące separatorów  /  Pola wyboru  /  Przyciski Radio  /  Kod QR  /  kod kreskowy  /  Tabela linii ukośnych  /  Podpis równania  /  Tytuł Zdjęcia  /  Podpis tabeli  /  Wiele zdjęć  / Odkryj więcej w Wstaw grupę...

🔍 Precyzyjne wybory: Punktowy konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...

⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji  /  automatyczne wstawianie powtarzającego się tekstu  /  płynnie przełączaj się pomiędzy oknami dokumentów  /  11 Narzędzia konwersji...

???? Chcesz wypróbować te funkcje? Kutools dla Word oferuje Bezpłatna wersja próbna 60-day, bez ograniczeń! 🚀

Darmowe pobieranie     Czytaj więcej     Kup teraz