Cum se inserează mai multe imagini cu aceeași dimensiune în documentul Word?

În mod normal, puteți insera mai multe imagini simultan într-un document Word cu dimensiunea lor originală. Uneori, trebuie să aranjați aceste imagini la aceeași dimensiune atunci când introduceți. În acest articol, voi vorbi despre cum să inserați mai multe imagini cu aceeași dimensiune într-un document Word.

Introduceți mai multe imagini cu aceeași dimensiune în documentul Word cu cod VBA

Redimensionați toate imaginile la aceeași dimensiune pe baza unei anumite imagini cu Kutools pentru Word

Introduceți mai multe imagini cu aceeași dimensiune în documentul Word cu cod VBA

Următorul cod vba vă poate ajuta să inserați mai multe imagini și să le redimensionați simultan la dimensiunea specificată, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: introduceți mai multe imagini cu aceeași dimensiune:

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. Și apoi, apăsați F5 tasta pentru a rula acest cod, a Naviga fereastra este afișată, selectați folderul care conține imaginile pe care doriți să le inserați, consultați captura de ecran:

4. Apoi apasa OK și se afișează o casetă promptf pentru a vă reaminti dacă doriți să redimensionați imaginile, consultați captura de ecran:

5. Clic Da, și tastați numerele de mărime ale înălțimii și lățimii care sunt separate prin virgulă în caseta de text, consultați captura de ecran:

6. Apoi faceți clic pe OK, toate imaginile inserate au fost rearanjate ca aceeași dimensiune, vezi captura de ecran:

notițe: dimensiunea unității este iaz în codul VBA.

Redimensionați toate imaginile la aceeași dimensiune pe baza unei anumite imagini cu Kutools pentru Word

Dacă există mai multe imagini în documentul dvs. Word, cu Kutools pentru Cuvânt'S Redimensionați imaginile utilitar, puteți redimensiona rapid toate imaginile la fel ca și cele specifice.

După instalare Kutools pentru Cuvânt, vă rugăm să faceți acest lucru:

1. Ajustați o imagine la dimensiunea dorită, apoi selectați-o, apoi faceți clic pe Kutools Plus > Redimensionarea > Redimensionați imaginile cu selecție, vezi captura de ecran:

2. Și toate imaginile din acest document Word au fost redimensionate la fel ca și cele selectate imediat, vezi captura de ecran:

Faceți clic pentru a descărca Kutools pentru Word și încercarea gratuită acum!

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut  /  Rescrie textul  /  Rezumat documente  /  Solicitați informații pe baza Documentului, toate în Cuvânt

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan...

✏ Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere  /  Redimensionați toate imaginile  /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare  /  Secțiuni pauze  /  Toate anteturile  /  Casete text  /  hiperlinkuri  / Pentru mai multe instrumente de îndepărtare, mergeți la nostru Eliminați grupul...

➕ Inserții creative: Inserați Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  / Descoperiți mai multe în Inserați grupul...

???? Selectii de precizie: Repera cu precizie pagini specifice  /  tabele  /  forme  /  paragrafele de titlu  / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

⭐ Îmbunătățiri de stele: Navigați rapid în orice locație  /  inserarea automată a textului repetitiv  /  comutați fără probleme între ferestrele documentelor  /  11 Instrumente de conversie...

???? Vrei să încerci aceste funcții? Kutools pentru Word oferă a 60-zi de încercare gratuită, fără limitări! 🚀

Descărcare gratuită     Citeste mai mult     Cumpară acum