Дисплей Букет изображений в изображении ActiveX в Excel

Question

Может кто-нибудь просветить меня на этом. Мне нужно отобразить серию изображений (например, около 58 штук) в элементе управления ActiveX ActiveX в Excel с помощью кнопки. Если я нажму кнопку, он автоматически воспроизводит изображения 1 на 1, как GIF (кстати, мы не можем использовать gifs). Я немного слаб в петлях так может кто-то мне

ГПУ

Sub Button3_Click() 
Dim x As Integer 

x = 1 

    ActiveSheet.Image1.Picture = LoadPicture(ThisWorkbook.Path   & "\Images\Irene\" & x & ".jpg") 

'MsgBox (ThisWorkbook.Path & "\Images\Irene\" & x & ".jpg") 
End Sub 

Answer 1

попробовать это:

Sub main() 
    Dim iPic As Long 

    With ActiveSheet.Image1 
     For iPic = 1 To 6 
      .Picture = LoadPicture(ThisWorkbook.Path & "\Images\Irene\" & iPic & ".jpg") 
     Next 
    End With 
End Sub 

В моем кодирования для таких вещей, которые я также использую своего рода «таймер», чтобы показать фотографии :

Sub main() 
    Dim iPic As Long 

    With ActiveSheet.Image1 
     For iPic = 1 To 6 
      .Picture = LoadPicture(ThisWorkbook.Path & "\Images\Irene\" & iPic & ".jpg") 
      MyWait '<--| added to let pictures be actually shown one by one 
     Next 
    End With 
End Sub 

Sub MyWait() 
    Dim time1, time2 

    time1 = Now 
    time2 = Now + TimeValue("0:00:01") 
    Do Until time1 >= time2 
     DoEvents 
     time1 = Now() 
    Loop 
End Sub