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 - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !
🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais (Conserver le format) / Super Traduire (Conserver le format) / Rédaction IA / Correction AI...
📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...
✏ Édition de contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes du tableau / Convertir le tableau en texte...
🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones 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 / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...
🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...
⭐ Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...
Meilleurs outils de productivité pour Office
Kutools pour Word - 100+ outils pour Word
- 🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais / Super Traduire / Rédaction IA / Correction AI
- 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
- ✏ Édition de contenu : 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