How do I change the following line of code so that it targets the crrent
slide rather than slide 1?
I have tried different combinations but it never seems to work!

ActivePresentation.Slides(1).Shapes(i).TextFrame.TextRange.Text = VALUES(i -
1)

Thanks for any help

Dave

Dave,
You make use of this generic routine to get the active slide.
http://www.mvps.org/skp/ppt00044.htm


--
Regards
Shyam Pillai

Image Importer Wizard
http://www.mvps.org/skp/iiw.htm

"Dave Eades" <(E-Mail Removed)> wrote in message
news:3f17ce9c$0$15034$(E-Mail Removed)...
> How do I change the following line of code so that it targets the crrent
> slide rather than slide 1?
> I have tried different combinations but it never seems to work!
>
> ActivePresentation.Slides(1).Shapes(i).TextFrame.TextRange.Text =
VALUES(i -
> 1)
>
> Thanks for any help
>
> Dave
>
>

If you want the current slide in the design (editing) mode, use:

ActiveWindow.Selection.SlideRange(1)

If you are in the slide show mode, use:

SlideShowWindows(1).View.Slide

- Chirag

PowerShow - View multiple shows simultaneously
http://officerone.tripod.com/powershow/powershow.html

"Dave Eades" <(E-Mail Removed)> wrote in message
news:3f17ce9c$0$15034$(E-Mail Removed)...
> How do I change the following line of code so that it targets the crrent
> slide rather than slide 1?
> I have tried different combinations but it never seems to work!
>
> ActivePresentation.Slides(1).Shapes(i).TextFrame.TextRange.Text =
VALUES(i -
> 1)
>
> Thanks for any help
>
> Dave
>
>

That's got it!

Thanks for your help

Dave

"Chirag" <(E-Mail Removed)> wrote in message
news:#(E-Mail Removed)...
> If you want the current slide in the design (editing) mode, use:
>
> ActiveWindow.Selection.SlideRange(1)
>
> If you are in the slide show mode, use:
>
> SlideShowWindows(1).View.Slide
>
> - Chirag
>
> PowerShow - View multiple shows simultaneously
> http://officerone.tripod.com/powershow/powershow.html
>
> "Dave Eades" <(E-Mail Removed)> wrote in message
> news:3f17ce9c$0$15034$(E-Mail Removed)...
> > How do I change the following line of code so that it targets the crrent
> > slide rather than slide 1?
> > I have tried different combinations but it never seems to work!
> >
> > ActivePresentation.Slides(1).Shapes(i).TextFrame.TextRange.Text =
> VALUES(i -
> > 1)
> >
> > Thanks for any help
> >
> > Dave
> >
> >
>
>