Adding Scroll bar to image box in vba

[princ_wns]

hi everyone,


after spending around a whole day i couldn't able to find any thing that how to add scroll bar to image box in vba.
please help me to find this .


thanks in advance.

prince

[Admin]

Hi Prince,

The best I could come up with is setup a Combobox with some dimensions.

In the userform module

Const frmWidth  As Single = 700
Const frmHeight As Single = 560
Private Sub ComboBox1_Change()
    
    Dim strSize     As String
    Dim x
    
    If Len(Me.ComboBox1.Value) Then
        strSize = Me.ComboBox1.Value
        x = Split(strSize, "x")
        With Me
            .Height = Application.Max(frmHeight, CLng(x(0)))
            .Width = Application.Max(frmWidth, CLng(x(1)))
        End With
        With Me.Image1
            .Top = .Top
            .Left = .Left
            .Width = CLng(x(1))
            .Height = CLng(x(0))
        End With
    End If
    
End Sub

Private Sub UserForm_Initialize()

    Dim varSize
    
    
    varSize = Array("16x16", "32x32", "64x64", "160x120", "180x132", "256x192", "320x240", "320x400", _
                    "352x288", "400x300", "480x320", "512x342", "544x372", "640x480", "720x540", "800x600", _
                    "1024x768", "1280x1024")
    
    With Me.Image1
        .Picture = LoadPicture("C:\Pictures\DSC02264.jpg")
        .Height = 16
        .Width = 16
    End With
    
    With Me.ComboBox1
        .List = varSize
        .ListIndex = 0
    End With

End Sub