Comment agrandir l'image en cliquant dessus dans Excel?
Supposons que vous ayez inséré une liste d'images dans une colonne et que vous ayez fait correspondre les tailles d'image avec les tailles de cellule comme illustré ci-dessous. Comme l'image insérée semble petite, vous devrez peut-être l'agrandir à certaines fins. Cet article vous montrera la méthode d'agrandissement d'une image lorsque vous cliquez dessus dans Excel et la restauration de sa taille d'origine par le deuxième clic.
Agrandir l'image en cliquant dessus avec le code VBA
Agrandir l'image en cliquant dessus avec le code VBA
Le code VBA suivant peut vous aider à agrandir une image lorsque vous cliquez dessus dans Excel. Veuillez faire comme suit.
1. Cliquez avec le bouton droit sur l'image que vous souhaitez agrandir en cliquant simplement dessus, puis cliquez sur Attribuer une macro dans le menu contextuel. Voir la capture d'écran:
2. dans le Attribuer une macro boîte de dialogue, veuillez cliquer sur le Nouveauté .
3. Dans le pop-up Microsoft Visual Basic pour applications , veuillez copier et coller le code VBA ci-dessous entre le Sol et End Sub codes. Voir la capture d'écran:
Code VBA: agrandir l'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 WithNotes: Dans le code, vous pouvez attribuer les grandes tailles de l'image dans le code big = 3.
4. Appuyez ensuite sur le autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.
À partir de maintenant, lorsque vous cliquez sur l'image, elle sera agrandie à la taille que vous avez spécifiée, et cliquez à nouveau dessus pour retrouver la taille d'origine comme ci-dessous les captures d'écran.
Articles connexes:
- Comment verrouiller une image / image dans ou à l'intérieur d'une cellule dans Excel?
- Comment insérer une image ou une image dynamiquement dans une cellule en fonction de la valeur de la cellule dans Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition 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é de 50% et réduit des centaines de clics de souris chaque jour!
