Excel에서 이미지 ActiveX의 이미지 묶음을 표시하십시오.

Question

누군가 내게 이것을 밝힐 수 있습니까? 단추를 사용하여 Excel의 이미지 ActiveX 컨트롤에 일련의 그림 (약 58 개 정도)을 표시해야합니다. 단추를 누르면 GIF와 같이 이미지가 1 씩 자동 재생됩니다 (GIF는 사용할 수 없습니다). 표시 나는 또한 사진을 수 있도록 "타이머"일종의을 사용하는 등의 것들에 대한 내 코드에서

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 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

을 HEP 수 있어요 :

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