Adding a daily counter

[Chad]

Hello, how would I add a counter to a looping presentation? I want to have a
text box on one of my slides that would count each day that goes by from a
start date so every new day it would count up. Is this possible and if so
how? Thanks...

Newbie,
Chad

 

[vindys]

Try this VBA
Sub FindDateDiff()
Dim d As Date
d = DateValue("April 11, 2008") ' Converts to a date.
ActiveWindow.Selection.ShapeRange(1).TextFrame.TextRange.Text =
DateDiff("d", d, Now)
End Sub

You can change from ActiveWindow.Selection.ShapeRange(1) to the particular
shape which you want to show the text on.

Thanks,
Vindys

 

[Chad]

Vindys, I have found that you can link tables from an excell workbook and
have it auto update every time powerpoint is opened. I could use this but my
presentation never shuts off so I would have to auto update with code. How
could I do this? Thanks!

 

[vindys]

Hi Chad,
You can right click on the excel shape and you can click on "Update Link" to
update the link. Through the following code too it will update the link.

ActiveWindow.Selection.ShapeRange(1).LinkFormat.Update

 

[Chad]

Vindys, where would I put the
ActiveWindow.Selection.ShapeRange(1).LinkFormat.Update and how do I get it to
auto update? Im new to this so could you explain? Thanks!

 

[vindys]

Hi Chad,

Sorry for the delay. Just check this one.
http://pptfaq.com/FAQ00033.htm
Also check how to make powerpoint respond to events.
http://pptfaq.com/FAQ00004.htm

Thanks,
Vindys