Dans le classeur de Michel Pierron qui montre comment redimmensionner une
image dynamiquement (ExcelLabo) il y a un bout de code que je ne comprend
pas :
Private Sub AxeY(ByVal x%, ByVal y%, S As Boolean)
Dim Toffset!
Toffset = Image1.Top
If S Then
Image1.Height = Image1.Height - Yp + y
Image1.Top = Image1.Top - (Image1.Top - Toffset)
Else
Image1.Top = Image1.Top - Yp + y
Image1.Height = Image1.Height - (Image1.Top - Toffset)
End If
HandPos
End Sub
vu que Toffset = Image1.Top, alors théoriquement Image1.Height =
Image1.Height - (Image1.Top - Toffset) = Image1.Height - (Image1.Top -
Image1.Top) = Image1.Height - 0 = Image1.Height
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Emcy
voici le liens du fichier concerné : http://www.excelabo.net/moteurs/compteclic.php?nom=mp-dynamiccontrol
"Emcy" a écrit dans le message de news:
Bonjours,
Dans le classeur de Michel Pierron qui montre comment redimmensionner une image dynamiquement (ExcelLabo) il y a un bout de code que je ne comprend pas :
Private Sub AxeY(ByVal x%, ByVal y%, S As Boolean) Dim Toffset! Toffset = Image1.Top If S Then Image1.Height = Image1.Height - Yp + y Image1.Top = Image1.Top - (Image1.Top - Toffset) Else Image1.Top = Image1.Top - Yp + y Image1.Height = Image1.Height - (Image1.Top - Toffset) End If HandPos End Sub
vu que Toffset = Image1.Top, alors théoriquement Image1.Height > Image1.Height - (Image1.Top - Toffset) = Image1.Height - (Image1.Top - Image1.Top) = Image1.Height - 0 = Image1.Height
pourquoi ce n'est pas ça ?
voici le liens du fichier concerné :
http://www.excelabo.net/moteurs/compteclic.php?nom=mp-dynamiccontrol
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:OevZhz89EHA.2180@TK2MSFTNGP10.phx.gbl...
Bonjours,
Dans le classeur de Michel Pierron qui montre comment redimmensionner une
image dynamiquement (ExcelLabo) il y a un bout de code que je ne comprend
pas :
Private Sub AxeY(ByVal x%, ByVal y%, S As Boolean)
Dim Toffset!
Toffset = Image1.Top
If S Then
Image1.Height = Image1.Height - Yp + y
Image1.Top = Image1.Top - (Image1.Top - Toffset)
Else
Image1.Top = Image1.Top - Yp + y
Image1.Height = Image1.Height - (Image1.Top - Toffset)
End If
HandPos
End Sub
vu que Toffset = Image1.Top, alors théoriquement Image1.Height > Image1.Height - (Image1.Top - Toffset) = Image1.Height - (Image1.Top -
Image1.Top) = Image1.Height - 0 = Image1.Height
voici le liens du fichier concerné : http://www.excelabo.net/moteurs/compteclic.php?nom=mp-dynamiccontrol
"Emcy" a écrit dans le message de news:
Bonjours,
Dans le classeur de Michel Pierron qui montre comment redimmensionner une image dynamiquement (ExcelLabo) il y a un bout de code que je ne comprend pas :
Private Sub AxeY(ByVal x%, ByVal y%, S As Boolean) Dim Toffset! Toffset = Image1.Top If S Then Image1.Height = Image1.Height - Yp + y Image1.Top = Image1.Top - (Image1.Top - Toffset) Else Image1.Top = Image1.Top - Yp + y Image1.Height = Image1.Height - (Image1.Top - Toffset) End If HandPos End Sub
vu que Toffset = Image1.Top, alors théoriquement Image1.Height > Image1.Height - (Image1.Top - Toffset) = Image1.Height - (Image1.Top - Image1.Top) = Image1.Height - 0 = Image1.Height
