Can we scroll through images and change the aspect ratio in a UserForm?

[USAMax]

I need to be able to select between windows used in home remolding. I have several GIF images that I would like to scroll through and I want to use their file names in the bill of material.

I also want to know if there is a way to change the aspect ratio based on the window's dimensions.


My thanks to my Mr Excel family.

 

[Worf]

Here is an example:

' user form module
Dim i%
Private Sub UserForm_Initialize()
i = 0
End Sub


Private Sub CommandButton1_Click()              ' click to change picture
Dim a, asp
a = Array("joke.gif", "charts.gif")
asp = Array(2, 3)                               ' aspect ratios
If i > UBound(a) Then i = 0
With Me.Image1
    .Picture = LoadPicture("c:\pub\" & a(i))    ' your directory here
    .Width = 50
    .Height = 50 * CDbl(asp(i))
    .PictureSizeMode = fmPictureSizeModeStretch
End With
Me.Repaint
Me.TextBox1 = "c:\pub\" & a(i)                  ' file name
i = i + 1
End Sub

 

[USAMax]

Worf, thank you so much for responding to my question and I am sorry have not seen it until now. It looks like it will work so I will test it out this weekend.

Thank you again!