image et ascenceur

[fred]

bonjour =)
j'ai créé un userform comprenant une zone "image"
l'image est collée avec le module PastePicture.
elle est généralement plus grande en hauteur que la zone.
je souhaiterai faire défiler l'image, avec un ascenceur, malheureusement je n'y parviens pas.
Pourriez vous m'aider ?
l'usage d'un objet scrollbar est il vraiment necessaire ?

 

[petchy]

bonjour Fred et le forum

tu vas dans la propriété de l'USF tu vas dans:
scrollbars et tu choisi le 3
scrollheight:1000
scrollleft:1000

@ plus
petchy

 

[fred]

tres bonne technique, je te remercie Petchy.
Toutefois, elle ne semble s'appliquer qu'a l'USF tout entier ,
et je ne desire scroller que l'image.
Mais je ne manquerais pas de le réutiliser (usf trop grand, image de la taille de l'usf)
je suis parvenu a mes fins avec l'objet scrollbar (c'est assez simple en fait)
meme si quelquefois il a pas l'air de reagir.

le code pour ceux que ça pourrait interesser

Private Sub ScrollBar1_Change()
Worksheets("Echeancier").Range("A" + CStr(3 + CDec(ScrollBar1.Value)) + ":I" + CStr(43 + CDec(ScrollBar1.Value))).CopyPicture xlScreen, xlPicture
Set ImageEcheance.Picture = PastePicture(xlPicture)
End Sub

Private Sub UserForm_Initialize()
ScrollBar1.Min = 0
ScrollBar1.Max = 120
ScrollBar1.Value = 0
Worksheets("Echeancier").Range("A3:I43").CopyPicture xlScreen, xlPicture
Set ImageEcheance.Picture = PastePicture(xlPicture)
End Sub

ce qui donne un tableau excel de taille fixe (9 colonnes , 40 lignes) sous forme d'image qui se deplace de la ligne 3 a 123 (voir ScrollBar1.Max)

++Fred