Comment insérer plusieurs images de même taille dans un document Word?

Normalement, vous pouvez insérer plusieurs images à la fois dans un document Word avec leur taille d'origine. Parfois, vous devez organiser ces images à la même taille lors de l'insertion. Cet article, je vais vous expliquer comment insérer plusieurs images de même taille dans un document Word.

Insérer plusieurs images de même taille dans un document Word avec le code VBA

Redimensionnez toutes les images à la même taille en fonction d'une image spécifique avec Kutools for Word

Insérer plusieurs images de même taille dans un document Word avec le code VBA

Le code vba suivant peut vous aider à insérer plusieurs images et à les redimensionner à la taille spécifiée à la fois, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.

Code VBA: insérez plusieurs images de même taille:

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. Et puis, appuyez sur F5 clé pour exécuter ce code, un Explorer fenêtre s'affiche, veuillez sélectionner le dossier contenant les images que vous souhaitez insérer, voir capture d'écran:

4. Puis clique OK bouton, et une boîte de dialogue apparaît pour vous rappeler si vous souhaitez redimensionner les images, voir capture d'écran:

5Cliquez sur Oui, et tapez les numéros de taille de la hauteur et de la largeur séparés par une virgule dans la zone de texte, voir capture d'écran:

6. Et puis cliquez OK, toutes les images insérées ont été réorganisées avec la même taille, voir capture d'écran:

Notes: la taille de l'unité est étang en code VBA.

Redimensionnez toutes les images à la même taille en fonction d'une image spécifique avec Kutools for Word

Si plusieurs images existent dans votre document Word, avec Kutools for Word's Redimensionner les images utilitaire, vous pouvez rapidement redimensionner toutes les images de la même manière que celle spécifique.

Après l'installation de Kutools for Word, veuillez faire comme ceci:

1. Ajustez une image à la taille souhaitée, puis sélectionnez-la, puis cliquez sur Kutools Plus > "Resize" > Redimensionner les images avec la sélection, voir capture d'écran:

2. Et toutes les images de ce document Word ont été redimensionnées de la même manière que celle sélectionnée immédiatement, voir capture d'écran:

Cliquez pour télécharger Kutools for Word et un essai gratuit maintenant !

Meilleurs outils de productivité bureautique

Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !

🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu  /  Réécrire le texte  /  Résumer des documents  /  Demander des informations basé sur le document, le tout dans Word

(I.e. Maîtrise des documents: Pages divisées  /  Fusionner des documents  /  Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...)  /  Conversion par lots en PDF  /  Exporter des pages sous forme d'images  /  Imprimer plusieurs fichiers à la fois

✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers  /  Redimensionner toutes les images  /  Transposer les lignes et les colonnes du tableau  /  Convertir le tableau en texte

🧹 Nettoyage sans effort : balayer Espaces supplémentaires  /  Sauts de section  /  Tous les en-têtes  /  Boîtes de texte  /  Liens hypertextes  / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe

➕ Insertions créatives: Insérer Mille séparateurs  /  Cases à cocher  /  Boutons radio  /  code QR  /  Code barres  /  Tableau des lignes diagonales  /  Légende de l'équation  /  Légende  /  Légende de la table  /  Plusieurs images  / Découvrez-en davantage dans le Insérer un groupe

🔍 Sélections de précision: Localiser pages spécifiques  /  les tables  /  formes  /  paragraphes de titre  / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités

⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit  /  insertion automatique de texte répétitif  /  basculer de manière transparente entre les fenêtres de document  /  11 outils de conversion

👉 Vous voulez essayer ces fonctionnalités ? Kutools for Word propose un Essai gratuit 60-day, sans aucune limite ! 🚀

Téléchargement gratuit     En savoir plus     COMMANDER MAINTENANT