![]() ![]() I want to make a timer to countdown from a set time (or number) to zero. I want to have something on the screen during slide show mode where I hit an active x button or advance to the next slide to run a macro to start a countdown timer on screen. I don;t want to create 20 additional slides that are animated together. I just wanted to do it with VBA code. Can it be done? I tried this code, but it seems to work when I step through it in edit mode, but it just crashes in slide show mode. Any suggestions? Stand-alone Countdown Timer/Clock for Mac PowerPoint. Text and background colors changeable. Sound plays when time is up. Place at any location. Office 2019 for Mac Office for business Office 365 Admin Office 365 Small Business Office 365 Small Business Admin Office 2016 for Mac Office 365 for Mac Office.com More. Less This article provides step-by-step instructions on how to activate Office for Mac. Note: In order to activate Office for Mac, you will need a valid and licensed Office 365 account or a Microsoft Account that is associated with a one-time purchase. If you don't, you won't be able to create or edit files, only read them. Cant activate office 365 for mac. Can't Activate office 365 for Mac (try your existing solutions already). Hi, Look at the couple of examples on this page -, especially the one using SetTimer/KillTimer API Don't mix the two modes. Slide Show mode is distinct from the design mode. In design mode you can perform selection, in slideshow you cannot. 'Run this code in slide show mode only. Don't quit the slide show till the countdown is done. Dim sld As Slide Set sld = SlideShowWindows(1).View.Slide Set Shp = sld.Shapes.AddShape(Type:=msoShapeRectangle, _ Left:=50, Top:=50, Width:=500, Height:=200) Shp.Fill.ForeColor.RGB = vbBlue Shp.Fill.BackColor.RGB = vbBlack Shp.TextEffect.FontName = 'DS-Digital' Shp.TextEffect.FontSize = 244 Dim i As Integer For i = 10 To 0 Step -1 Shp.TextFrame.TextRange = i 'refresh the slide With SlideShowWindows(1).View.GotoSlide (.CurrentShowPosition) End With 'sleep for 1 sec Sleep (1000) 'let powerpoint do what it needs to do DoEvents Next Regards Shyam Pillai http://skphub.com.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
March 2019
Categories |