Passer au contenu principal

Comment cliquer pour agrandir ou agrandir l'image dans un document Word?

Cet article explique comment agrandir ou développer des images dans un document Word par un clic de souris.

Cliquez pour agrandir ou agrandir l'image avec le code VBA

Redimensionner les images avec Kutools for Word


Cliquez pour agrandir ou agrandir l'image avec le code VBA

Le code VBA suivant peut aider à agrandir les images dans un document Word en un clic. Veuillez faire comme suit.

1. Dans le document contient des images que vous agrandissez d'un clic, appuyez sur la touche autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module de classe. Copiez ensuite le code VBA ci-dessous dans la fenêtre Classe.

Code VBA 1: Cliquez pour agrandir les images

Public WithEvents GApp As Word.Application
'Updated by ExtendOffice 20181129
Private Sub GApp_WindowSelectionChange(ByVal Sel As Selection)
    Dim xShape As InlineShape
    On Error Resume Next
    Set xShape = Sel.InlineShapes(1)
    xShape.Height = 200
    xShape.Width = 200
End Sub

Notes: Dans le code, le nombre 200 correspond à la hauteur et à la largeur spécifiées des images agrandies. Vous pouvez modifier la hauteur et la largeur selon vos besoins.

3. Cliquez insérer > Module, copiez le code ci-dessous dans la fenêtre Module.

Code VBA 2: Cliquez pour agrandir les images

Dim cls As New Class1
'Updated by ExtendOffice 20181129
Sub register_Event_Handler()
    Set cls.GApp = Word.Application
End Sub

4. appuie sur le F5 pour exécuter le code et fermer le Microsoft Visual Basic pour applications fenêtre.

Désormais, lorsque vous cliquez sur une image de ce fichier, l'image sera agrandie à la taille spécifique que vous souhaitez.


Redimensionner les images avec Kutools for Word

La Redimensionner les images utilité de Kutools for Word peut vous aider à redimensionner toutes les images selon un pourcentage spécifié ou une image sélectionnée. Veuillez essayer.

Kutools for Word : Avec plus de 100 compléments Word pratiques, libre d'essayer sans limitation dans 60 jours.

Cliquez Kutools Plus > "Resize", sélectionnez un pourcentage dans la liste déroulante. Voir la capture d'écran:

Ensuite, toutes les images du document actuel sont redimensionnées en fonction de ce pourcentage spécifique.

Pour redimensionner toutes les images en fonction de la taille de l'image sélectionnée, vous devez d'abord sélectionner l'image, puis cliquer sur Kutools Plus > "Resize" > Redimensionner les images avec la sélection. Voir la capture d'écran:

Ensuite, toutes les images du document actuel sont redimensionnées en fonction de celle sélectionnée.

Si vous souhaitez avoir un essai gratuit de cet utilitaire, rendez-vous sur télécharger gratuitement le logiciel d'abord, puis appliquez l'opération selon les étapes ci-dessus.


Office Tab - Navigation, modification et gestion par onglets de plusieurs documents dans Word:

Office Tab apporte l'interface à onglets telle qu'elle apparaît dans les navigateurs Web tels que Google Chrome, les nouvelles versions d'Internet Explorer et Firefox à Microsoft Word. Il sera être un outil rapide et irremplaçable dans votre travail. Voir la démo ci-dessous:

Cliquez pour un essai gratuit d'Office Tab !

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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Yeah nice try, but it should really put the enlarged image in a temporary popup, instead of literally resizing the image!
This comment was minimized by the moderator on the site
OK...after clicking to expand, how do you get it to restore back to default size or click to default size?
This comment was minimized by the moderator on the site
It work in older world file, saved as .doc, but opened in MS 365.
This comment was minimized by the moderator on the site
Hi

The macro doesn't work as should. On MS Office 365 the resizing appear only for few mili sec.
This comment was minimized by the moderator on the site
Hi Thanks for the tip. I'm following the instructions on how to enlarge by using Macro, however I'm getting a error message "The type that was defined by user was ot defined" Any idea?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations