I am a VB6 programmer but a complete ppt beginner. I have two things I'm
trying to accomplish:
1) write a small text file that contains the number of times a
presentation has been viewed, updating the file each time. and

2) displaying the number of times it's been viewed somewhere on the
presentation.

I know the VB subroutine code for writing and reading a file, but I
don't know how to call the subroutine each time the program is run, and
I don't know how to display the number of times the presentation has
been viewed.

Any help or urls would be greatly appreciated,
Mike

This should help with responding to events in ppt.
http://pptfaq.com/FAQ00004.htm
--
Amazing PPT Hints, Tips and Tutorials-http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk


"mscir" wrote:

> I am a VB6 programmer but a complete ppt beginner. I have two things I'm
> trying to accomplish:
> 1) write a small text file that contains the number of times a
> presentation has been viewed, updating the file each time. and
>
> 2) displaying the number of times it's been viewed somewhere on the
> presentation.
>
> I know the VB subroutine code for writing and reading a file, but I
> don't know how to call the subroutine each time the program is run, and
> I don't know how to display the number of times the presentation has
> been viewed.
>
> Any help or urls would be greatly appreciated,
> Mike
>

In article <c-(E-Mail Removed)>, Mscir wrote:
> I am a VB6 programmer but a complete ppt beginner. I have two things I'm
> trying to accomplish:
> 1) write a small text file that contains the number of times a
> presentation has been viewed, updating the file each time. and
>
> 2) displaying the number of times it's been viewed somewhere on the
> presentation.
>
> I know the VB subroutine code for writing and reading a file, but I
> don't know how to call the subroutine each time the program is run, and
> I don't know how to display the number of times the presentation has
> been viewed.

Getting code to run when a presentation is viewed is tricky. There's no
built-in way to do this in PPT as there is in Word/Excel.

You can trap events with an addin (see the link John posted) or, depending on
circumstances, you could have a "Start the Show" button on the first slide
trigger a macro that does the counter tracking and advances to the next slide.

As far as the counter tracking:

You can use a text file if you like, and I can imagine some good reasons for
doing so, but it might be simpler to keep the data attached to the PPT file
itself.

If you want to do that, you can use tags on the presentation itself:

Dim sTimesViewed as String

' Read the TimesViewed tag
sTimesViewed = ActivePresentation.Tags("TimesViewed")

If Len(sTimesViewed) > 0 then
' Increment it
sTimesViewed = Cstr(Clng(sTimesViewed) + 1)
Else
' Never viewed before, no tag there so start it at one
sTimesViewed = 1
End if

' And write back the tag
Call ActivePresentation.Tags.Add("TimesViewed", sTimesViewed)

' update the display
' supposing you have a shape named "Counter" on Slide 1:
ActivePresentation.Slides(1).Shapes("Counter").TextFrame.TextRange.Text = _
sTimesViewed

' Make sure changes are saved to PPT file
ActivePresentation.Save

========================================




-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

John Wilson wrote:
> This should help with responding to events in ppt.
> http://pptfaq.com/FAQ00004.htm

John,

That is very useful, thanks very much!

Mike

Steve Rindsberg wrote:
> In article <c-(E-Mail Removed)>, Mscir wrote:
>> I am a VB6 programmer but a complete ppt beginner. I have two things I'm
>> trying to accomplish:
>> 1) write a small text file that contains the number of times a
>> presentation has been viewed, updating the file each time. and
>>
>> 2) displaying the number of times it's been viewed somewhere on the
>> presentation.
>>
>> I know the VB subroutine code for writing and reading a file, but I
>> don't know how to call the subroutine each time the program is run, and
>> I don't know how to display the number of times the presentation has
>> been viewed.
>
> Getting code to run when a presentation is viewed is tricky. There's no
> built-in way to do this in PPT as there is in Word/Excel.
>
> You can trap events with an addin (see the link John posted) or, depending on
> circumstances, you could have a "Start the Show" button on the first slide
> trigger a macro that does the counter tracking and advances to the next slide.
>
> As far as the counter tracking:
>
> You can use a text file if you like, and I can imagine some good reasons for
> doing so, but it might be simpler to keep the data attached to the PPT file
> itself.
>
> If you want to do that, you can use tags on the presentation itself:
>
> Dim sTimesViewed as String
>
> ' Read the TimesViewed tag
> sTimesViewed = ActivePresentation.Tags("TimesViewed")
>
> If Len(sTimesViewed) > 0 then
> ' Increment it
> sTimesViewed = Cstr(Clng(sTimesViewed) + 1)
> Else
> ' Never viewed before, no tag there so start it at one
> sTimesViewed = 1
> End if
>
> ' And write back the tag
> Call ActivePresentation.Tags.Add("TimesViewed", sTimesViewed)
>
> ' update the display
> ' supposing you have a shape named "Counter" on Slide 1:
> ActivePresentation.Slides(1).Shapes("Counter").TextFrame.TextRange.Text = _
> sTimesViewed
>
> ' Make sure changes are saved to PPT file
> ActivePresentation.Save
>
> ========================================
> Steve Rindsberg, PPT MVP
> PPT FAQ: www.pptfaq.com
> PPTools: www.pptools.com

Thanks Steve,

that's very useful, much nicer than a text file, and automatically moves
with the presentation.

Mike