#Free real time clock for powerpoint how to

Shapes('Shape Countdown'). = Minute(diff - days) & ' minutes'Īnd it worked fine on one computer automatically running when I started the Slide Show, but then when I tried on my laptop, the macro wouldn't run automatically until it had been manually run from the Developer tab. This is the code I ended up with: Sub OnSlideShowPageChange()ĭim endDate As Date: endDate = DateSerial(2022, 5, 29)įor Each sld In ActivePresentation.Slides I was working on a similar thing trying to get a timer countdown to automatically update as text on a shape for every slide where where the shape was present. Hello I just wanted to thank Rindsberg for his help with this issue. With ActivePresentation.Slides(i).Shapes(1).TextFrame.TextRange I also have to manually advance, and it will not run on the next slide. It simply inserts the time over top the current slide. This almost works, but it doesn't adhere to my shape on the slide that has proper text formatting like the last macro. Ready to get serious about Dynamic PowerPoint Subscribe to our free newsletter to get the latest news, news product notifications, and exclusive promotions. With ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRangeĮDIT: (I dont know if this is the proper way to do so, I am sorry) Is there a workaround either in PowerPoint or VBA to have this run independently? Sub digitalClock() I have it assigned on mouse over and it works for every slide when I move the mouse.

#Free real time clock for powerpoint how to

The only way I know how to execute the macro is with the 'Action' option and mouse over or mouse click. The shape is the entire size of the slide, and contains no fill. I currently have a shape on each slide that is assigned to the macro below. I have figured out a way to do this, but unfortunately it won't work for an unmanned presentation. This presentation needs a live clock on every slide. I am working on a looping PowerPoint for a kiosk.