Note: The other languages of the website are Google-translated. Back to English

 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 la stessa dimensione in un documento di Word.

Inserisci 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


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

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

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

2. Clic inserire > Moduloe incolla il codice seguente 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, premi F5 chiave per eseguire questo codice, a Scopri la nostra gamma viene visualizzata la finestra, selezionare la cartella che contiene le immagini che si desidera inserire, vedere screenshot:

doc inserire immagini con la stessa dimensione 1

4. Quindi fare clic OK e viene visualizzata una finestra di prompt per ricordarti se vuoi ridimensionare le immagini, vedi screenshot:

doc inserire immagini con la stessa dimensione 2

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

doc inserire immagini con la stessa dimensione 3

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

doc inserire immagini con la stessa dimensione 4

Note:: la dimensione dell'unità è stagno 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 utility, puoi ridimensionare rapidamente tutte le immagini come quelle specifiche.

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

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

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

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

Fai clic per scaricare Kutools per Word e prova gratuita ora!


Strumenti di produttività Word consigliati

 

Kutools per Word: oltre 100 funzionalità avanzate per Word, risparmia il 50% del tempo

  • Le operazioni complicate e ripetute possono essere eseguite una sola volta in pochi secondi.
  • Inserisci più immagini tra le cartelle nel documento di Word contemporaneamente.
  • Unisci e combina più file di Word tra cartelle in uno con l'ordine desiderato.
  • Suddividi 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 ...
Commenti (2)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ciao
Sono Soda, sono qui per dirlo, imparo davvero molto con il tuo sito Web e le informazioni che fornisci.
Grazie per questo :)
Questo commento è stato fatto dal moderatore sul sito
grazie per l'aiuto... è molto interessante... bel lavoro... buona fortuna
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite