Set newWordArt = ActivePresentation.Slides(nSlideNo). ' msoTextEffect7, "Arial Black", FontSize:=100, FontBold:=msoTrueĬonst sFontName As String = "Amasis MT Pro Black" How to play the sound asynchronously? Use the below Windows API.Sound Effect Source: we can use the Windows sound effect files which are stored in " C:\Windows\Media" folder (midi and wav).Sound Effect: When timer counts to zero, we need some alarming sound to alert the presenter, let's insert a bomb symbol beside the timer and also use its AlternativeText property to store the sound effect selection.Duration: We need to find a place to store the duration value (in minutes), every shape has a AlternativeText property which is a good candidate to store our value.To Enhance the Features of the CountDown Timerīasically, we want to configure the duration, sound effect and text effect. Turn on " Slide Show" mode, click on the timer, the count down will start.Select the rectangle shape, then insert " Action", on pop up dialog box, click on " Run Macro", choose " CountDown", click OK.Press Alt+F11 again to switch back to PPT, insert a rectangle shape on the current slide.Press Alt+F11 to open the VBE (VBA Editor), insert a Module, paste code snippet from revision 3.Open your own PPT or create a new one, then save it as pptm format.And further more, now it also works for multiple CountDown Timers on the same slide. This is a neater solution, as we don't care about the slide number and shape name. Basic Function of the CountDown Timerįirst, let's look into the original code from Karina Adcock: You shall see the Developer node on the right pane, simply tick it to load this Add-in, then click the Ok button to close the Options dialogbox.īelow are some code snippets which maybe of interest to you: 1.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |