zoom avec slider

Hervé

XLDnaute Barbatruc

• 4 Mai 2006

• #2

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]

 

Pièces jointes

• zoom_20060504110157.zip

  31.2 KB · Affichages: 27

Vote positif 0 Vote négatif

Gibson94

Nous a quitté

Repose en paix

• 4 Mai 2006

• #3

Bonjour JPC, le forum,

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

Code:

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

 

Pièces jointes

• ZoomImage.zip

  30.1 KB · Affichages: 40

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 4 Mai 2006

• #4

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

 

Vote positif 0 Vote négatif

J

JPC

Guest

• 4 Mai 2006

• #5

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

 

Vote positif 0 Vote négatif