Note: The other languages of the website are Google-translated. Back to English
Autentificare  \/ 
x
or
x
Înregistrare  \/ 
x

or

 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!


Instrumente de productivitate Word recomandate

 

Kutools pentru Word - Mai mult de 100 de funcții avansate pentru Word, economisiți-vă 50% timp

  • Operațiile complicate și repetate pot fi efectuate o singură dată în câteva secunde.
  • Inserați mai multe imagini în foldere în documentul Word simultan.
  • Combinați și combinați mai multe fișiere Word din foldere într-unul singur cu comanda dorită.
  • Împărțiți documentul curent în documente separate în funcție de titlu, secțiune de secțiune sau alte criterii.
  • Convertiți fișiere între Doc și Docx, Docx și PDF, colecție de instrumente pentru conversii și selecție obișnuite și așa mai departe ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    hicham sergini · 1 years ago
    thanks for help ... it is very interesting ... big job ... good luck
  • To post as a guest, your comment is unpublished.
    Soda · 2 years ago
    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 :)