zoom avec slider

[JPC]

bonjour 'soir'

j'aimerais pouvoir utiliser un slider pour zoomer sur une feuille ou une image ,
mais je bloque sur les codes
merci a vous si vous pouviez m'aider [file name=zoom_20060504023719.zip size=29389]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/zoom_20060504023719.zip[/file]

 

[Hervé]

bonjour jpc

j'ai supposé que c'etait l'image que tu voulais zoomé.

salut [file name=zoom_20060504110157.zip size=31928]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/zoom_20060504110157.zip[/file]

 

[Gibson94]

Bonjour JPC, le forum,

Je te propose ce code à mettre dans le code de la feuille:

Option Explicit
Dim Lon As Double

Private Sub Slider1_Click()
Lon = 20 * Slider1.SelStart
ActiveSheet.Shapes('Picture 1').Select
Selection.ShapeRange.Height = 205.5 + Lon
Range('M5').Select

End Sub

[file name=ZoomImage.zip size=30804]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ZoomImage.zip[/file]

Bonne journée à tous et à toutes...

Edition pour saluer mon pote Hervé que je n'avais point vu...

Message édité par: gibson94, à: 04/05/2006 11:24

 

[Hervé]

salut guy

ah ouais, c'etait pourtant simple quand on voit ton code guy, j'ai encore fait dans l'usine à gaz.

JPC, prend le code de guy, bien meilleur que le mien.

salut

 

[JPC]

bonjour a vous
merci de votre aide
ca marche impec
bonne journée