Load Image : Image Object « File Path « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. File Path
3. Image Object

Load Image

 
Private Sub cmdAnimate_Click()
    Dim I As Integer
    Dim filePath As String
    Dim myImages(9) As Image
    For I = 0 To 9
        Set myImages(I) = New Image
        filePath = ActiveWorkbook.Path & "\l" & Trim(str(I)) & ".bmp"
        myImages(I).Picture = LoadPicture(filePath)
    Next I
    For I = 0 To 9
        imgBall.Picture = myImages(I).Picture
        Delay (0.1)
    Next I
End Sub

 

Related examples in the same category