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 With

Remarque : 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 ?