Passer au contenu principal

Comment redimensionner toutes / plusieurs images dans Word?

Lorsque nous copions ou importons des images d'Internet ou d'autres fichiers, la taille des images peut être différente. Tout le monde sait comment redimensionner les images une par une, mais si nous voulons les redimensionner toutes à la même taille, comment pouvons-nous faire? Ce tutoriel vous montrera plusieurs méthodes de redimensionnement des images.

Redimensionner les images manuellement dans Word

Redimensionner les images avec VBA

Redimensionnez plusieurs images à la fois avec Kutools for Word


Redimensionner les images manuellement dans Word

1. Pour afficher les poignées de dimensionnement de l'image en cliquant sur l'image;

2. Placez le curseur sur l'une des poignées de dimensionnement de l'image.

3. Faites glisser la poignée de dimensionnement jusqu'à ce que la taille de l'image corresponde à vos besoins. Voir la capture d'écran:

doc ajuster les images 1

Notes: Avec cette méthode, vous ne pouvez pas redimensionner plusieurs images à la fois. Vous devez les redimensionner une par une jusqu'à ce que toutes les images soient redimensionnées.


Redimensionner les images avec VBA

Avec le code VBA suivant, vous pouvez redimensionner les images à votre taille idéale. Vous pouvez le faire comme suit :

Dans cet exemple, nous redimensionnons la taille de l'image à 1.78 pouces de hauteur et 3.17 pouces de largeur.

1. Veuillez sélectionner une image dont vous souhaitez modifier la taille;

2. presse Alt + F11 ouvrir le Microsoft Visual Basic pour applications fenêtre;

3Cliquez sur Module de insérer , copiez et collez le code VBA suivant dans le Module fenêtre;

Code VBA: redimensionner une image à une taille spécifique:

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub

4. Cliquez Courir bouton ou F5 pour exécuter le code VBA, et l'image sélectionnée a été redimensionnée à la taille dont vous avez besoin.

Notes: Dans le code ci-dessus,  En shp.Height = InchesToPoints (1.78) et shp.Width = PoucesToPoints (3.17) sont la hauteur et la largeur de l'image, vous pouvez changer la taille pour répondre à vos besoins.

Avec ce code VBA, vous ne pouvez pas non plus redimensionner toutes ou plusieurs images à la fois. Vous devez faire des allers-retours entre le document Word et le Microsoft Visual Basic pour applications fenêtre pour sélectionner l'image et appliquer le code. Cela prend trop de temps.


Redimensionner les images avec Kutools for Word

Avec Kutools pour Word's Redimensionner les images utilitaire, vous pouvez vous débarrasser de ces opérations ennuyeuses et fastidieuses et redimensionner rapidement toutes les images de votre document.

Kutools for Word : avec plus de 100 compléments Word pratiques, essai gratuit sans limitation en 60 jours. 

1. Veuillez appliquer cet utilitaire en cliquant sur Kutools Plus > "Resize". Voir la capture d'écran:

2. Si vous souhaitez redimensionner toutes les images à un certain pourcentage de leur taille d'origine, veuillez sélectionner l'un des six pourcentages dans la liste déroulante. Par exemple, si vous souhaitez redimensionner toutes les images à 50% de leur taille d'origine, veuillez sélectionner 50%. Après avoir cliqué 25%, vous verrez que toutes les images ont été dimensionnées à 50%. Voir la capture d'écran:

doc ajuster les images 3

Si vous souhaitez ajuster toutes les images à la même taille avec une sélection, veuillez sélectionner une image comme taille du modèle, puis cliquez sur Kutools Plus > "Resize" > Redimensionner les images avec la sélection, et toutes les images seront redimensionnées de la même taille en fonction de celle sélectionnée, voir capture d'écran:

doc ajuster les images 4

Pour plus d'informations sur Kutools for Word's Redimensionner les images utilitaire, veuillez cliquer ici.

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


Démo: redimensionner toutes les images à la fois dans Word

Kutools for Word: avec plus de 100 compléments Word pratiques, essai gratuit sans limitation dans 60 jours. Téléchargez et essayez 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 ! 🚀
 
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I wasted a good 3 hrs or more trying to get these VBA macros to work. Gave up and tried Kutools which works great! Purchased it right away as it is well worth the $49!
This comment was minimized by the moderator on the site
If you save your document as .docx, then you will be able to open it as zip-archive. There will be media folder with all images (mine had PNG images). You can then use programs like IrfanView, XnViewMP, FastStone Viewer to perform batch transformations like resize, reduce color depth, etc. Pack your images back into zip and rename it to docx. For example, in my docx full of screenshots I needed to reduce number of colors to 8, which is enough for documentation purposes. After processing my 10MB doc became 1.8MB doc, so savings can be significant. Always save your original docx in case you want to restore pictures after too much degradation/processing etc.
This comment was minimized by the moderator on the site
I need to resize all images in a word document to the same width but not deform the images. so scale them to the same width. Is this possible through a macro?
This comment was minimized by the moderator on the site
Does anyone know if an image placeholder/dropper/automatic sizing feature is available in Windows 365? No idea where to look or find assistance on this since the Microsoft chat help was SO unhelpful. Any tips would be greatly appreciated.
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub
This comment was minimized by the moderator on the site
Where i put this code?
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub Excellent!!! You saved my money and my time. Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations