Hi, to everyone!

 I tried to do some animation but could not find out why the following codes cannot iterate through a collection of 3 pics:

  code:
      Sub RunPic()
          Dim i As Long
         Application.ScreenUpdating = False

         Worksheet(4).Shapes("Picture").Activate

      For x = 1 To 3

      ActiveSheet.Shapes("Picture" & i).Visible = False
     Next x

     ActiveSheet.Shapes("Picture" & i).Visible = True
     Application.ScreenUpdating = True

     End Sub

 The runtime error displayed is:" The item with the specified name wasn't found".
 I am using Office 2000 to write those codes.
   The above 3 pics are grouped and named "PICTURE". Is there a better way to iterate pictures, rectangles, ovals and etc., showing each shape one at the time?







      

ungroup your images and have each one called "picture 1", "picture 2", and "picture 3" respectively.


Sub RunPic()
Dim i, PauseTime, Start, Finish, TotalTime
For i = 1 To 3
    PauseTime = 2 ' Set duration of changing sequence.
    Start = Timer
    ActiveSheet.Shapes("Picture " & i).Visible = True
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
    Finish = Timer
    TotalTime = Finish - Start
    ActiveSheet.Shapes("Picture " & i).Visible = False
Next i
End Sub


cheers

Matt

Hi,

Try this this: replace ActiveSheet.Shapes("Picture" & i).visible = false with
ActiveSheet.OLEObjects("Picture" & i).Visible = True

Hope this helps
-Max

Thank you to both of you - Matt and Max!!
  Matt's solution is the one I am trying to handle, but somehow the codes that were
a bit familiar in the past had somehow slipped from my memory!
  That was a great help!!!
  Now, I can sleep better tonight!