Slide Animation【ExcelVBA】

Slides * 30

Sample Code

-------------------------------

Option Explicit
Public Sub Main()
Dim x As Integer
Do
For x = 1 To 30
Application.Wait [Now()] + 1 / 864000
Worksheets(Format(x)).Select
Next x
Loop
End Sub

-------------------------------

InteriorColorで色付けを行い、完成したスライドを30枚用意し、スライドを順番に選択

数値をFormatを使用することでシート名で選択できるようにし順番にスライド