VBA to simulate enter key selection

[glad_ir]

Hi,

Please can I get some help with this one?

I am using the code below in a PowerPoint deck to run a countdown timer when rectangle 7 is clicked on a slide. I would like to modify the code to trigger an animated shape to appear (by simulating the "enter" key being pressed?).

Sub macroSTRAT()

Dim time As Date
time = Now()

Dim count As Integer
count = 90

time = DateAdd("s", count, time)

Do Until time < Now()
DoEvents
ActivePresentation.SlideShowWindow.View.Slide.Shapes("Rectangle 7").TextFrame.TextRange = Format((time - Now()), "nn:ss")
Loop

CreateObject("Shell.Application").ShellExecute "wmplayer.exe", "m:\FBI.mp3", , "open", 0

End Sub

Any help much appreciated!

Thank you, Iain

 

[Micron]

trigger an animated shape to appear (by simulating the "enter" key being pressed?).

I don't get it. Maybe you want to use SendKeys to replicate Enter key press? Not sure why you would code a key press to show a shape when you can just code to show the shape.