在Excel中的图像ActiveX中显示一堆图像

Question

有人可以在这方面给我启发。我需要使用按钮在Excel的Image ActiveX控件中显示一系列图片（如约58个图片）。如果我按下一个按钮，它会像GIF一样自动播放图像（我们无法使用gif）。我有点在循环弱所以能有人HEP我

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