XL 2016 Quand je sauvegarde l'image se rétrécie deux fois

anthonygg

XLDnaute Junior
Bonjour,

Je souhaite faire un programme ou quand je clique l'image s'agrendie et quand je reclique elle ratrécie … du standard !
Sauf que mon programme rétrécie de deux fois mon image chaque fois que je sauvegarde le document … très génant.

Une idée pourquoi ca fait ça ? Mes variables se réinitialisent t'elles ?

Merci beaucoup voir mon fichier en pj
 

Fichiers joints

patricktoulon

XLDnaute Accro
bonjour
c'est peut etre cela que tu cherche
VB:
Dim b As Boolean, l As Boolean
Sub Image0_Cliquer()
Dim shp As Shape
  If b = False And l = False Then b = True Else b = False
   Set shp = ActiveSheet.Shapes(Application.Caller)
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 1.2  'n'importe quelle valeur entre 0.01 et 1000
    small = 1.25 * 1.33 'n'importe quelle valeur entre 0.01 et 1000
     With shp
       If b = True Then
       .ScaleWidth small, msoTrue, msoScaleFromTopLeft
             .ScaleHeight small, msoTrue, msoScaleFromTopLeft
             .ZOrder msoSendToBack
        Else
          .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        b = False
        End If
    End With
End Sub
apres si big ne corespond pas a 1 pour le scale entier c'est normal que tu a 2 redim au depart
 

anthonygg

XLDnaute Junior
Je n'ai plus 2 redimensions au départ, mais je n'ai plus non plus ma fonction avec ce code :(
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas