Userforma resim çağırma

[cemal18]

MANUEL SLAYT GÖSTERİSİ YAPMAK İÇİN:

masaüstünde RESİMLERİM klasörü var (içinde 5 resim var)
Excel Sayfa1'de A sütununda bu resimlerin adresleri var
userform1'de slaytı başlat dediğimde ilk resim gelsin ama
ikinci resim benim komutumla gelsin

bu kodla denedim ama yapamadım
Private Sub cmdBaslat_Click()
For x=1 to 5
Image1.Picture = LoadPicture(Sayfa1.Cells(x, "A").Value)
' burada döngü benim komutum olmadan ilerlemesin
'msgbox "Diğer resim" kodu ile oluyor ama güzel görünmüyor
'İlerlemeyi ya ENTER ile veya image1'e tıklayarak ya da bir commandbutton ile yapmak istiyorum
Next
End Sub

Şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Dim x
Private Sub cmdBaslat_Click()
If x = 5 Then
    x = 1
Else
    x = x + 1
End If
Image1.Picture = LoadPicture(Sayfa1.Cells(x, "A").Value)
End Sub

 

[cemal18]

Kodu uyguladım, çalıştı. Teşekkür ederim.