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

 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:

doc wstaw obrazy o tym samym rozmiarze 1

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

doc wstaw obrazy o tym samym rozmiarze 2

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

doc wstaw obrazy o tym samym rozmiarze 3

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

doc wstaw obrazy o tym samym rozmiarze 4

Uwagi: 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.

Kutools dla Worda : z ponad 100 przydatnymi dodatkami do Worda, które można wypróbować bezpłatnie bez ograniczeń przez 60 dni. 

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!


Zalecane narzędzia zwiększające produktywność programu Word

 

Kutools dla programu Word — ponad 100 zaawansowanych funkcji programu Word, oszczędzaj 50% czasu

  • Skomplikowane i powtarzalne operacje można wykonać jednorazowo w ciągu kilku sekund.
  • Wstaw wiele obrazów w folderach do dokumentu programu Word jednocześnie.
  • Scalaj i łącz wiele plików programu Word w folderach w jeden z żądaną kolejnością.
  • Podziel bieżący dokument na oddzielne dokumenty według nagłówka, podziału sekcji lub innych kryteriów.
  • Konwertuj pliki między Doc i Docx, Docx i PDF, zbiór narzędzi do typowych konwersji i zaznaczania, i tak dalej ...
Sortuj komentarze według
Komentarze (4)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Hej cześć
Jestem Soda, jestem tutaj, aby to powiedzieć, naprawdę dużo się uczę dzięki twojej stronie internetowej i informacjom, które podajesz.
Dziękuję za to :)
Ten komentarz został zminimalizowany przez moderatora na stronie
dzięki za pomoc... to bardzo ciekawe... wielka robota... powodzenia
Ten komentarz został zminimalizowany przez moderatora na stronie
Molto bello e utile! Nie jesteś samotny w Cosa, w Codice VBA z kryterium rozszerzającym / zmniejszającym wymiary obrazów? Procent/raport? piksel? cm?
DZIĘKUJĘ CI!
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj, Grasselli
Rozmiar jednostki to staw w powyższym kodzie VBA.
Dziękuję Ci!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL