Counting Button Clicks (2003)

Topic

New Reply

I have searched extensively for my requirement but without success. I would like a user to click a command button on a slide and the number of clicks be displayed in a textbox (or something) on another slide. In essence, I would like the other slide to act as a counter. Is there a simple way of doing this? TIA.

Regards

Reply | Quote

Replies

Only with vba code

Reply | Quote

Hi John

Yours was the first site I checked out but I could not find any reference to my needs. I played around with ppt vba but it is still a bit esoteric. The syntax is not what I’m used to. Would you provide me with some vba to do the job.

Ta

Regards

Reply | Quote

Something like:

(Assuming eg that the textbox was shape 3 on slide 3)
In the On click code for the command button

Static Icount As Integer
Icount = Icount + 1
ActivePresentation.Slides(3).Shapes(3).TextFrame.TextRange = CStr(Icount)

Note this will keep counting up until you close the presenation so you may want a reset button that just runs Icount=0

Reply | Quote

Thanks for your time, John. I have just inserted a textbox from the Control Toolbox into Slide 2. How do I assign it a Shapes reference? Shapes(?)

Reply | Quote

Do you NEED a control textbox (or for that matter a command button) you can do this with an action button and standard textbox.

If you do use a control textbox you can refer to it like this (assuming it has the default name)

ActivePresentation.Slides(2).Shapes(“TextBox1”) _
.OLEFormat.Object.Text = CStr(Icount)

Reply | Quote

Thanks John. That is really useful. Just one more request. What I’m trying to do is to keep a running total of correct answers as determined by which button is clicked. Thus, if a particular button is clicked on different slides, the value in the textbox on the “counting slide” is updated accordingly until the presentation ends. In other words, it keeps a record of correct answers to questions on any given slide.

Regards

Rob

Reply | Quote

OK (Always start with the real question!)

Don’t use a command button at all will make this much easier

Alt f11 to vb editor and Insert Module

Add this code
Dim Icount as Integer
Sub CorrectAns()
Icount=count+1
whatever code to change text in box goes here
End Sub

Insert however many action buttons (not command buttons) and give each on an action of Run Macro “CorrectAns”

Reply | Quote

Point taken. Many thanks for your time and expertise. As Arnie may have said, I may be back!

Reply | Quote

This might help. Shows also how to give result and reset counters

Reply | Quote

Thanks for the attached file, John. It’s been of tremendous use.

Regards

Reply | Quote