In the Stop Playing section, click on After radio button and set the value to 999 - the max value (your presentation won't exceed 999 slides, I'm pretty sure :p). In the Play Video dialog box, select the Effect tab. Within the resultant Animation Pane that shows up (on the right), double-click the first animation this will bring up the Play Video dialog box.Ĩ. Click the Animations tab of the Ribbon, then click the Animation Pane button.ħ. In fact, you set your video countdown to play automatically.Ħ. Click the Start drop-down list, choose Automatically. Next, select your video, click on Playback Tab (Video Tools Playback) on the Ribbon. Don't forget that you can always Resize and Reposition your video countdown for instance you may resize it and drag it to the top right corner.ĥ. Now, your video appears in the first slide. After storing the video in your PC, choose it to insert it in you presentation (you may need to repeat step 2).Ĥ. You will be redirected to where you can directly download your video. Next, you will download the video and for this just add ss before in the URL of the video. Same technique applies if your countdown is of 41 minutes. But from where to get this video ? No problem, from YouTube! If you want a countdown of 5 minutes, just type in YT countdown 5 min, and you'll get a bunch of useful videos. You have to choose a video showing the countdown that you want. Click the Insert tab of the Ribbon, then click Video > Video on My PC (or Video from File in other PPT versions).ģ. Navigate to the first slide of your presentation.Ģ. However, it will take more than a click to be done (guaranteed to work).ġ. Well, the good news is that it could be done without any line of code. " & Format(dispS, "00")ĭispTime = Format(dispS, "00") & " seconds"ĪctivePresentation.Slides(1).Shapes("MainTitle"). = dispTime Public Sub BAR01_Countdown()ĪctivePresentation.Slides(1).Shapes("MainTitle"). = "Got To " & NowĬountTimeEnd = DateAdd("h", myHours, CountTimeEnd)ĬountTimeEnd = DateAdd("n", myMinutes, CountTimeEnd)ĬountTimeEnd = DateAdd("s", mySeconds, CountTimeEnd)ĭispTime = Format(dispH, "00") & " : " & Format(dispM, "00") & ". Your thoughts and guidance would be greatly appreciated. I just cannot figure out how to get it to countdown properly. However, when I play the slideshow, while it does not appear to hit a breakpoint, it does do the first update line - ActivePresentation.Slides(1).Shapes("MainTitle"). = "Got To " & Now In my testing, I have added breakpoints to the code as well as debug.prints to try and see if it is executing the code or not so that I can step through to see if there is any logic errors. I have found multiple examples online, however when trying to adapt them for our purpose, I cannot get the code to run as expected. I am working on a project where we want to have a countdown timer that is displayed on a slide for while students are completing a project.
0 Comments
Leave a Reply. |