Help creating slideshow from spreadsheet

[Andrew]

I am attempting to create an automated flashcard from data contained in an
embedded spreadsheet. If possible, the presentation should have one slide.
Data displayed on the slide should be a WordArt formatted term updated
automatically (randomly selection) from one of the values in column A of the
spreadsheet after a 5-second delay. This should be done while the slideshow
is running and for as many times as there are values in column A (covering
each value once).

I believe something like this should work but am not sure of the details:

Sub studyGuide()

For Each goi In embededspreadsheet.Column("A") 'randomized if possible

Set myDocument = ActivePresentation.Slides(1)
myDocument.shapes.AddTextEffect(msoTextEffect2, goi.Text, "Impact", _
182#, msoFalse, msoFalse, 0, 0).Select

With Application.ActivePresentation.PageSetup
.SlideWidth = myDocument.shapes(2).Width
.SlideHeight = myDocument.shapes(2).Height
End With

'delay 5 seconds

myDocument.shapes(2).Delete

Next goi

End Sub

Any assistance in the right direction would be greatly appreciated. If this
is not the correct forum, a please direct me to the correct one.

Thanks,

 

[Andrew]

Thank you very much Steve, that was perfect.

One more question though, is there a way to moniter the keyboard for user
input in the event they want to terminate the presentation before reaching
the end of the array? I have over 2700 terms which can take more than 3H 45M
to complete so I would like to be able to terminate the show by pressing the
ESC key.

 

[Andrew]

Can you let the user control the advance of the show rather than automating it
every nn seconds?

No, the intent is to speed up the display as the user gains familiarity,
which is not possible if they control the method of advance.