Salt la conținutul principal

How to insert multiple pictures with the same size in Word?

Autor: Xiaoyang Ultima modificare: 2024-07-18

Normally, you can insert multiple images at once in a Word document with their original sizes. However, there are times when you need to ensure all images are the same size for a consistent and professional look. Manually resizing each image can be time-consuming. In this article, we will discuss how to insert multiple pictures with the same size in a Word document, providing a more efficient way to manage your images and maintain uniformity in your document’s layout.

Insert multiple pictures with the same size in Word with 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:

Fereastra de navigare

4. Apoi apasa OK button, and a prompt box is popped out to remind you if you want to resize the pictures, see screenshot:

Kutools for Word prompt box

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:

Setați dimensiunea

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

Rezultat

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.

Kutools pentru Cuvânt, echipat cu AI 🤖, oferă peste 100 de funcții utile pentru a vă simplifica sarcinile.

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:

Resize Images with Selection option of Kutools

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

Rezultat

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  /  Obțineți răspunsuri rapide, 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 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  /  Mese  /  Forme  /  Paragrafe de titlu  / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

Îmbunătățiri de stele: Navigați la orice locație  /  Inserarea automată a textului repetitiv  /  Comutați între ferestrele documentelor  /  11 Instrumente de conversie...

???? Vrei să încerci aceste funcții? Descărcați Kutools pentru Word acum! 🚀
 
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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations