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

Try this VBA
Sub FindDateDiff()
Dim d As Date
d = DateValue("April 11, 2008") ' Converts to a date.
ActiveWindow.Selection.ShapeRange(1).TextFrame.Tex tRange.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" wrote:

> 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, 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!
--
Newbies need extra loven.........


"vindys" wrote:

> Try this VBA
> Sub FindDateDiff()
> Dim d As Date
> d = DateValue("April 11, 2008") ' Converts to a date.
> ActiveWindow.Selection.ShapeRange(1).TextFrame.Tex tRange.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" wrote:
>
> > 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

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.Up date

"Chad" wrote:

> 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!
> --
> Newbies need extra loven.........
>
>
> "vindys" wrote:
>
> > Try this VBA
> > Sub FindDateDiff()
> > Dim d As Date
> > d = DateValue("April 11, 2008") ' Converts to a date.
> > ActiveWindow.Selection.ShapeRange(1).TextFrame.Tex tRange.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" wrote:
> >
> > > 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

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.Up date

"Chad" wrote:

> 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!
> --
> Newbies need extra loven.........
>
>
> "vindys" wrote:
>
> > Try this VBA
> > Sub FindDateDiff()
> > Dim d As Date
> > d = DateValue("April 11, 2008") ' Converts to a date.
> > ActiveWindow.Selection.ShapeRange(1).TextFrame.Tex tRange.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" wrote:
> >
> > > 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, where would I put the
ActiveWindow.Selection.ShapeRange(1).LinkFormat.Up date and how do I get it to
auto update? Im new to this so could you explain? Thanks!
--
Newbies need extra loven.........


"vindys" wrote:

> 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.Up date
>
> "Chad" wrote:
>
> > 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!
> > --
> > Newbies need extra loven.........
> >
> >
> > "vindys" wrote:
> >
> > > Try this VBA
> > > Sub FindDateDiff()
> > > Dim d As Date
> > > d = DateValue("April 11, 2008") ' Converts to a date.
> > > ActiveWindow.Selection.ShapeRange(1).TextFrame.Tex tRange.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" wrote:
> > >
> > > > 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

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

"Chad" wrote:

> Vindys, where would I put the
> ActiveWindow.Selection.ShapeRange(1).LinkFormat.Up date and how do I get it to
> auto update? Im new to this so could you explain? Thanks!
> --
> Newbies need extra loven.........
>
>
> "vindys" wrote:
>
> > 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.Up date
> >
> > "Chad" wrote:
> >
> > > 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!
> > > --
> > > Newbies need extra loven.........
> > >
> > >
> > > "vindys" wrote:
> > >
> > > > Try this VBA
> > > > Sub FindDateDiff()
> > > > Dim d As Date
> > > > d = DateValue("April 11, 2008") ' Converts to a date.
> > > > ActiveWindow.Selection.ShapeRange(1).TextFrame.Tex tRange.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" wrote:
> > > >
> > > > > 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