• Initiateur de la discussion Initiateur de la discussion JPC
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

JPC

Guest
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]
 

Pièces jointes

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
530
Réponses
3
Affichages
586
Retour