Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registrati
x

or

Come inserire più immagini con le stesse dimensioni nel documento di Word?

Normalmente, puoi inserire più immagini contemporaneamente in un documento di Word con le loro dimensioni originali. A volte, è necessario disporre queste immagini alla stessa dimensione durante l'inserimento. In questo articolo, parlerò di come inserire più immagini con le stesse dimensioni in un documento di Word.

Inserire più immagini con le stesse dimensioni nel documento Word con codice VBA

Ridimensiona tutte le immagini alla stessa dimensione in base a un'immagine specifica con Kutools per Word


Ridimensiona tutte le immagini alla stessa dimensione in base a quella selezionata:

Per ridimensionare tutte le immagini nella stessa dimensione, dovresti ridimensionarle una alla volta normalmente, ma, con Kutools for Word's Ridimensiona immagini funzione, è possibile regolare tutte le immagini con le stesse dimensioni da una selezionata su. D'altra parte, puoi anche ridimensionarli a una percentuale specifica di cui hai bisogno.

doc regola le immagini 05

Kutools for Word: con più di 100 utili componenti aggiuntivi di Word, liberi di provare senza limiti nei giorni 60. Clicca per scaricare e prova gratuita ora!


Inserire più immagini con le stesse dimensioni nel documento Word con codice VBA

Il seguente codice vba può aiutarti a inserire più immagini e ridimensionarle alla dimensione specificata in una sola volta, per favore fai come segue:

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare il seguente codice nella finestra del modulo.

Codice VBA: inserisci più immagini con le stesse dimensioni:

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. E poi, stampa F5 chiave per eseguire questo codice, a Navigare viene visualizzata la finestra, selezionare la cartella che contiene le immagini che si desidera inserire, vedere screenshot:

doc inserire immagini con le stesse dimensioni 1

4. Quindi fare clic OK pulsante e viene visualizzata una finestra prompt per segnalare all'utente se si desidera ridimensionare le immagini, vedere screenshot:

doc inserire immagini con le stesse dimensioni 2

5. Clic e digita nella casella di testo i numeri di dimensione dell'altezza e della larghezza che sono separati da una virgola, vedi screenshot:

doc inserire immagini con le stesse dimensioni 3

6. E poi clicca OK, tutte le immagini inserite sono state ridisposte come le stesse dimensioni, vedi screenshot:

doc inserire immagini con le stesse dimensioni 4

Note: la dimensione dell'unità è pond nel codice VBA.


Ridimensiona tutte le immagini alla stessa dimensione in base a un'immagine specifica con Kutools per Word

Se esistono più immagini nel documento di Word, con Kutools for Word'S Ridimensiona immagini utilità, è possibile ridimensionare rapidamente tutte le immagini come quella specifica.

Kutools for Word : con più di 100 utili componenti aggiuntivi di Word, liberi di provare senza limitazioni nei giorni 60.

Dopo l'installazione Kutools for Word, per favore fai come questo:

1. Regola un'immagine alla dimensione desiderata, quindi selezionala, quindi fai clic su Impresa > Ridimensiona immagini > Ridimensiona le immagini con la selezione, vedi screenshot:

doc inserire immagini con le stesse dimensioni 5

2. E tutte le immagini in questo documento word sono state ridimensionate immediatamente come quella selezionata, vedi screenshot:

doc inserire immagini con le stesse dimensioni 6

Clicca per scaricare Kutools per Word e prova gratuita ora!



Strumenti di produttività di Word consigliati

Kutools per Word - Oltre alle funzionalità avanzate di 100 per Word, risparmia il tuo tempo 50%

  • Le operazioni complicate e ripetute possono essere eseguite in un'unica volta in pochi secondi.
  • Inserire più immagini contemporaneamente in cartelle in un documento di Word.
  • Unisci e combina più file di Word tra cartelle in un unico ordine.
  • Dividi il documento corrente in documenti separati in base a titolo, interruzione di sezione o altri criteri.
  • Converti file tra Doc e Docx, Docx e PDF, raccolta di strumenti per conversioni e selezioni comuni e così via ...
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Soda · 6 months 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 :)