Adding a daily counter

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Chad - 22 Apr 2008 19:31 GMT

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

Reply to this Message

vindys - 23 Apr 2008 12:16 GMT

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

> 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
[quoted text clipped - 3 lines]
> Newbie,
> Chad

Reply to this Message

Chad - 23 Apr 2008 16:41 GMT

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!

Signature

Newbies need extra loven.........

> Try this VBA
> Sub FindDateDiff()
[quoted text clipped - 17 lines]
> > Newbie,
> > Chad

Reply to this Message

vindys - 23 Apr 2008 20:01 GMT

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

> 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
[quoted text clipped - 22 lines]
> > > Newbie,
> > > Chad

Reply to this Message

Chad - 23 Apr 2008 23:51 GMT

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!

Signature

Newbies need extra loven.........

> Hi Chad,
> You can right click on the excel shape and you can click on "Update Link" to
[quoted text clipped - 28 lines]
> > > > Newbie,
> > > > Chad

Reply to this Message

vindys - 25 Apr 2008 11:47 GMT

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

> Vindys, where would I put the
> ActiveWindow.Selection.ShapeRange(1).LinkFormat.Update and how do I get it to
[quoted text clipped - 32 lines]
> > > > > Newbie,
> > > > > Chad

Reply to this Message

Rate this thread: