Comment insérer et redimensionner des images à la même taille dans Word ?
Normalement, vous pouvez insérer plusieurs images à la fois dans un document Word avec leurs tailles d'origine. Cependant, il arrive que vous deviez vous assurer que toutes les images ont la même taille pour un aspect uniforme et professionnel. Redimensionner manuellement chaque image peut être chronophage. Ce guide va vous montrer comment insérer efficacement plusieurs images dans un document Word et les redimensionner de manière uniforme, en garantissant une mise en page professionnelle et cohérente.
Insérer et redimensionner plusieurs images à la même taille dans Word en utilisant VBA
Insérer et redimensionner plusieurs images à la même taille dans Word en utilisant VBA
Le code VBA suivant peut vous aider à insérer plusieurs images et à les redimensionner aux dimensions spécifiées en une seule fois. Veuillez suivre ces étapes :
- Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
- Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.
- Appuyez sur F5 pour exécuter ce code. Une fenêtre Parcourir apparaîtra. Sélectionnez le dossier contenant les images que vous souhaitez insérer et cliquez sur OK.
- Une invite apparaîtra, vous demandant si vous souhaitez redimensionner les images. Cliquez sur Oui.
- Entrez la hauteur et la largeur en points (pt), séparées par une virgule, dans la zone de texte qui apparaît, puis cliquez sur OK.
- Toutes les images insérées seront désormais redimensionnées aux dimensions spécifiées.
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
Redimensionner toutes les images pour qu'elles correspondent à une image spécifique en utilisant Kutools pour Word
Lorsque votre document Word contient plusieurs images, les redimensionner une par une peut être fastidieux. Avec Kutools pour Word, l'utilitaire Redimensionner les images vous permet de redimensionner rapidement toutes les images pour qu'elles correspondent à la taille d'une image spécifique.
- Ajustez une image à la taille souhaitée et sélectionnez-la. Ensuite, cliquez sur Kutools Plus > Redimensionner > Redimensionner toutes les images en fonction de la sélection.
Toutes les images du document Word seront immédiatement redimensionnées pour correspondre à la taille de l'image sélectionnée.
Meilleurs outils de productivité pour Office
Kutools pour Word – Optimisez votre expérience Word avec plus de 100 fonctionnalités remarquables !
🤖 Fonctionnalités de Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (préserver le format) / Super Traduire (préserver le format) / Rédaction IA / Correction AI...
📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter une solution dans différents formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...
✏ Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...
🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone de texte / Liens hypertexte / Pour plus d’outils de suppression, rendez-vous dans le groupe Supprimer...
➕ Insertion créative : Insérer des séparateurs de milliers / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...
🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...
⭐ Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...
🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !
✨ Kutools pour Office – Une installation, cinq outils puissants !
Inclus Office Tab Pro · Kutools pour Excel · Kutools pour Outlook · Kutools pour Word · Kutools pour PowerPoint
📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément
Meilleurs outils de productivité pour Office
Kutools pour Word – 100+ outils pour Word
- 🤖 Fonctionnalités de Kutools IA : 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 en lot vers PDF
- ✏ Modification du texte : Recherche et remplacement en lot / Redimensionner toutes les images
- 🧹 Nettoyage sans effort : Supprimer les espaces supplémentaires / Supprimer les sauts de section
- ➕ Insertion créative : Insérer des séparateurs de milliers / Insérer des cases à cocher / Créer des codes QR
- 🌍 Prend en charge plus de40 langues : Kutools parle votre langue – plus de40 langues prises en charge !