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 Impliqué
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
 

Discussions similaires


Haut Bas