![]() ![]() (nSlideNo).Shapes.AddTextEffect(PresetTextEffect:=i, _ ![]() Set newWordArt = ActivePresentation.Slides Left:=nX0 + nXOffset * 2, Top:=(nFontSize + nLineSpace) * (i - 20)) Left:=nX0 + nXOffset, Top:=(nFontSize + nLineSpace) * (i - 10)) Left:=nX0, Top:=(nFontSize + nLineSpace) * i)įontName:=sFontName, FontSize:=nFontSize, FontBold:=msoFalse, Shapes.AddTextEffect(PresetTextEffect:=i, _įontName:=sFontName, FontSize:=nFontSize,įontBold:=msoFalse, FontItalic:=msoFalse, _ 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. In case you don't see the Developer Tab also, from menu bar please select the File\Options to open the Powerpoint Options dialog box, then click on Customize Ribbon Tab.You shall see the CountDownAddin in the availlable Add-ins box, simply tick it to load this Add-in, then click the Close button. In case you don't see the CountDown Tab mentioned above, please select the Developer Tab and click on Powerpoint Add-in button to open the Add-in manager dialog box.The CountDown Timer is now successfully installed on the current slide, to test the effect, simply turn on the " Slide Show" mode and click on the timer, it will start to count down, click again or end the " Slide Show", it will stop.Click on " Add Timer" to insert the CountDown shapes on current slide, a dialog box will pop up for you to configure the duration, sound effect and text effect, click OK.Open your own PPT or create a new PPT and save it as pptm format, then find the CountDown Tab on Ribbon, click " Install CountDown" to insert VBA code into current PPT.Use the CountDownTimerInstaller.pptm to install and unsintall the Addin.I felt that it may be useful to share what I have learnt here. I tried to enhance the features basing on Karina Adcock's solution, then I found that it was not so easy to make a decent add-in with all the features I listed in the Introduction section. ![]() She shared a very neat solution in her video (" How to make a countdown timer in Powerpoint using VBA?"). The original idea of count down timer came from a YouTube tutorial by Karina Adcock. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |