image1 nesnesini scrollbar ile boyutlandırmak

[kuşak]

Arkadaşlar ornek adlı çalışmada image1 nesnesinin boyutlandırılmasının scrollbar ile sağlamak istiyorum fakat ben bunu yapamadım . Bir de ben sadece image nesnesinin yükseklik kısmını değiştirip genişlik kısmının da yüksekliğine doğru orantılı olarak ayarlanmasını nasıl yaparım bi yardımcı olursanız?
:???:

 

[Levent Menteşoğlu]

Aşağıdaki kodu scrollbar nesnesine kopyalayın.

Private Sub ScrollBar1_Change()
ActiveSheet.Shapes("Image1").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = ScrollBar1
Selection.ShapeRange.Width = ScrollBar1
End Sub