Ciao,
un modo un pò "sempliciotto" potrebbe essere questo:
Codice:
Sub Ciclo()
Dim Cerchi As Integer, i As Integer, k As Integer, Precedente As Integer
Dim Forma As String, Acceso As Double, Spento As Double, Cicli As Integer
Cerchi = 5
Acceso = RGB(255, 255, 0)
Spento = RGB(128, 128, 128)
Cicli = Worksheets("Prove").Range("C1").Value
For k = 1 To Cicli
For i = 1 To Cerchi
Precedente = IIf(i = 1, Cerchi, i - 1)
Forma = "Ovale " & Precedente
Worksheets("Prove").Shapes(Forma).Fill.ForeColor.RGB = Spento
Forma = "Ovale " & i
Worksheets("Prove").Shapes(Forma).Fill.ForeColor.RGB = Acceso
Application.Wait Now + TimeValue("00:00:01")
Next i
Next k
MsgBox "Fine Ciclo!", vbInformation + vbOKOnly
End Sub
Ho utilizzato il foglio "Prove" per i test (ti riallego il file):
http://www.filedropper.com/slideradoggetti
Lascio a te le modifiche.
Ciao
Tore