Comment insérer et redimensionner des images à une taille identique dans Word ?

Généralement, vous pouvez insérer plusieurs images simultanément dans un document Word avec leurs Taille d'origine. Toutefois, il arrive que vous deviez garantir une taille identique pour toutes les images afin d’obtenir une présentation cohérente et professionnelle. Le redimensionnement manuel de chaque image peut s’avérer chronophage. Ce guide vous explique comment insérer efficacement plusieurs images dans un document Word et les redimensionner uniformément, pour un rendu professionnel et harmonieux.

Insérer et redimensionner plusieurs images à la même taille dans Word à l’aide de VBA

Redimensionner toutes les images pour qu’elles correspondent à une image spécifique à l’aide de Kutools pour Word

Insérer et redimensionner plusieurs images à la même taille dans Word à l’aide de VBA

Le code VBA ci-dessous vous permet d’insérer plusieurs images et de les redimensionner simultanément selon les dimensions que vous définissez. Voici la marche à suivre :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

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. Appuyez sur F5 pour exécuter ce code. Une fenêtre Parcourir s’ouvre. Sélectionnez le dossier contenant les images que vous souhaitez insérer, puis cliquez sur OK.
4. Une invite apparaît pour vous demander si vous souhaitez redimensionner les images. Cliquez sur Oui.
5. Saisissez la hauteur et la largeur en points (pt), séparées par une virgule, dans la zone de texte qui s’affiche, puis cliquez sur OK.

   

6. Toutes les images insérées seront désormais redimensionnées aux dimensions spécifiées.

   

Redimensionner toutes les images pour qu’elles correspondent à une image spécifique à l’aide de Kutools pour Word

Lorsque votre document Word contient plusieurs images, les redimensionner une par une peut vite devenir fastidieux. Grâce à Kutools pour Word, l’utilitaire Redimensionner les images vous permet de redimensionner instantanément toutes les images pour qu’elles s’ajustent à la taille d’une image spécifique.

1. Ajustez une image à la taille souhaitée et sélectionnez-la. Cliquez ensuite sur KUTOOLS PLUS > Redimensionner > Redimensionner toutes les images en fonction de la sélection.

Toutes les images du document Word seront instantanément redimensionnées pour s’ajuster à la taille de l’image sélectionnée.

Meilleurs outils de productivité Office

Kutools pour Word – Améliorez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖Fonctionnalités Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (conserver le format) / Super Traduire (conserver le format) / Rédaction IA / Correction IA…

📘Maîtrisez vos documents : divisez les pages, fusionnez les documents, exportez la sélection dans divers formats (PDF, TXT, DOC, HTML…) ou convertissez-les par lots en PDF…

✏Édition du contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes d’un tableau / Convertir un tableau en texte…

🧹Nettoyage simplifié : supprimez en un clin d’œil les espaces superflus, les sauts de section, les zones de texte ou les liens hypertexte. Pour encore plus d’outils de suppression, rendez-vous dans le groupe Supprimer…

➕Insertions créatives : insérez des séparateurs de milliers, une case à cocher, un bouton radio, un code QR, un code-barres ou plusieurs images. Découvrez-en davantage dans le groupe Insertion…

🔍Sélections précises : ciblez exactement les pages spécifiques, les tableaux, les formes ou les paragraphes de titre. Améliorez votre navigation grâce à davantage de fonctions de dé sélection…

⭐Améliorations phares : Naviguer vers n’importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les documents Windows / 11 outils de conversion Outils de...

🌍Prend en charge plus de 40 langues : Utilisez Kutools dans votre langue préférée – disponible en anglais, espagnol, allemand, français, chinois et plus de 40 autres langues !

 

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

Office Tab- Apporte une interface à onglets à Office et rend votre travail bien plus facile

• Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

✨ Kutools for Office – Une installation, cinq outils puissants !

Inclus Office Tab Pro·Kutools pour Excel·Kutools pour Outlook·Kutools pour Word·Kutools for PowerPoint

📦 Obtenez les 5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagner du temps et boostez immédiatement votre productivité

⬇️ Télécharger maintenant🎁 Acheter la suite complète📖 En savoir plus

Meilleurs outils de productivité Office

Kutools pour Word- Outils 100+ pour Word

• 🤖Kutools IA Fonctionnalités:Assistant IA/Assistant en Temps Réel/Super Polish/Super Traduire/Rédaction IA/Correction AI
• 📘Maîtrise des documents:Diviser les pages/Fusionner les documents/Conversion par lots en PDF
• ✏Édition du contenu:Recherche et remplacement en lot/Redimensionner toutes les images
• 🧹Nettoyage simplifié:Supprimer les espaces superflus/Supprimer Saut de section
• ➕Insertions créatives:Insérer des séparateurs de milliers/Insérer Case à cocher/Créer Code QR
• 🌍Prend en charge plus de 40 langues : Kutools parle votre langue – plus de 40 langues disponibles !

Téléchargement gratuitAcheter maintenantEn savoir plus sur Kutools