Comment agrandir une image en cliquant dessus dans Excel ?
Supposons que vous ayez inséré une liste d'images dans une colonne et ajusté les tailles des images aux tailles des cellules, comme le montre la capture d'écran ci-dessous. Comme l'image insérée semble petite, vous pourriez avoir besoin de l'agrandir pour certaines raisons. Cet article vous montrera une méthode pour agrandir une image en cliquant dessus dans Excel, puis la restaurer à sa taille d'origine avec un second clic.
Agrandir une image en cliquant dessus avec un code VBA
Agrandir une image en cliquant dessus avec un code VBA
Le code VBA suivant peut vous aider à agrandir une image en cliquant dessus dans Excel. Veuillez procéder comme suit.
1. Faites un clic droit sur l'image que vous souhaitez agrandir simplement en cliquant dessus, puis cliquez sur Attribuer une macro dans le menu contextuel. Voir la capture d'écran :
2. Dans la boîte de dialogue Attribuer une macro, veuillez cliquer sur le bouton Nouveau.
3. Dans la fenêtre Microsoft Visual Basic for Applications qui apparaît, copiez et collez le code VBA ci-dessous entre les codes Sub et End Sub. Voir la capture d'écran :
Code VBA : Agrandir une image en cliquant dessus dans Excel
Dim shp As Shape
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 3
small = 1
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
shpDouH = .Height
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
shpDouOriH = .Height
If Round(shpDouH / shpDouOriH, 2) = big Then
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
End If
End WithRemarque : Dans le code, vous pouvez attribuer les grandes dimensions de l'image dans le code big = 3.
4. Appuyez ensuite simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.
Dès maintenant, lorsque vous cliquez sur l'image, elle sera agrandie à la taille spécifiée, et un autre clic la restaurera à sa taille d'origine, comme le montrent les captures d'écran ci-dessous.
Articles connexes :
- Comment verrouiller une image dans ou à l'intérieur d'une cellule dans Excel ?
- Comment insérer dynamiquement une image dans une cellule basée sur la valeur de la cellule dans Excel ?
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels