Note: The other languages of the website are Google-translated. Back to English

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

Notez les: 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 à partir 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 cours 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.

Notez les: 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 for 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.

Cliquer pour télécharger Kutools for Word et 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!


Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de temps

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (7)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
économisez votre argent et exécutez cette macro : Crédit à 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 Sous-titre de fin
Ce commentaire a été minimisé par le modérateur sur le site
économisez votre argent et exécutez cette macro : Crédit à 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 Avec fin de sous-marin Excellent!!! Vous avez économisé mon argent et mon temps. Merci beaucoup!
Ce commentaire a été minimisé par le modérateur sur le site
Où j'ai mis ce code ?
Ce commentaire a été minimisé par le modérateur sur le site
Est-ce que quelqu'un sait si une fonction d'espace réservé d'image/compte-gouttes/dimensionnement automatique est disponible dans Windows 365 ? Aucune idée où chercher ou trouver de l'aide à ce sujet puisque l'aide du chat de Microsoft était si inutile. Tous les conseils seraient grandement appréciés.
Ce commentaire a été minimisé par le modérateur sur le site
Je dois redimensionner toutes les images d'un document Word à la même largeur mais ne pas déformer les images. alors mettez-les à l'échelle à la même largeur. Est-ce possible via une macro ?
Ce commentaire a été minimisé par le modérateur sur le site
Si vous enregistrez votre document au format .docx, vous pourrez l'ouvrir en tant qu'archive zip. Il y aura un dossier multimédia avec toutes les images (le mien avait des images PNG). Vous pouvez ensuite utiliser des programmes comme IrfanView, XnViewMP, FastStone Viewer pour effectuer des transformations par lots comme le redimensionnement, la réduction de la profondeur des couleurs, etc. Recompressez vos images dans un zip et renommez-le en docx. Par exemple, dans mon docx plein de captures d'écran, j'avais besoin de réduire le nombre de couleurs à 8, ce qui est suffisant à des fins de documentation. Après le traitement, mon document de 10 Mo est devenu un document de 1.8 Mo, donc les économies peuvent être importantes. Enregistrez toujours votre docx d'origine au cas où vous voudriez restaurer des images après trop de dégradation/traitement, etc.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai perdu 3 bonnes heures ou plus à essayer de faire fonctionner ces macros VBA. A abandonné et essayé Kutools qui fonctionne très bien! Je l'ai acheté tout de suite car il vaut bien les 49 $ !
Il n'y a pas encore de commentaires postés ici

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL