Hallo alle zusammen,
ich möchte bei der Excel Liste die Grafiken als Film abspielen und benötige Hilfe bei dem VBA Code. https://www.herber.de/bbs/user/116666.xlsm
Vielen Dank.
Grüße
Amintire
Sub animation()
Dim i As Integer
For i = 1 To 9
With ActiveSheet.DrawingObjects("Grafik 2")
.Formula = Cells(1, i).Address
Application.Wait Now + TimeValue("00:00:01")
DoEvents
DoEvents
End With
Next i
End Sub