Salt la conținutul principal

 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:

doc inserați imagini cu aceeași dimensiune 1

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:

doc inserați imagini cu aceeași dimensiune 2

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:

doc inserați imagini cu aceeași dimensiune 3

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

doc inserați imagini cu aceeași dimensiune 4

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 : cu mai mult de 100 de suplimente Word la îndemână, încercare gratuită fără limitări în 60 de zile. 

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!

Scufundați-vă în caracteristicile evidențiate de mai jos sau faceți clic aici pentru a explora întreaga putere a Kutools for Word.

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/XLSX)  /  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 eliminare, accesați grupul nostru de eliminare

Inserții creative: Insera 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 grupul nostru de inserări

???? Selectii de precizie: Identificați anumite pagini  /  tabele  /  forme  /  paragrafele de titlu  /  Navigați cu ușurință folosind grupul nostru Select

Î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 ...

Transformați-vă sarcinile Word cu Kutools. 👉 Descărcați acum cu o perioadă de încercare de 30 de zile 🚀.

 
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
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations