Changing the text on a command button

[John Crawford]

I wish to use a clock display on my slides. I do not want to use an
addin, because I need to run the presentation on different machines.
What I want to do is have a command button in the slide. When I click
the button I need the text on the button to display the clock. I am
using PP2000, and VB to do the code. The onclick command looks like this

Private Sub btnClock_Click()
btnClock.Caption = "Time"
rc = TimerStartStop()
End Sub

I have a module that contains the TimerStartStop function. So far the
information that I think I need looks like this
'The current slide
SlideNo = SlideShowWindows(1).View.Slide.SlideIndex
'Get the current slide
Set mydocument = ActivePresentation.Slides(SlideNo)
'The only property that has a text value is this
mydocument.Shapes("btnClock").AlternativeText = Time

However Alternative text does not change the text on the button. Is
there a property that I can use to change the text in this way?
Thanks in advance
John Crawford

 

[Shyam Pillai]

Hi,
Try:
mydocument.Shapes("btnClock").TextFrame.TextRange.Text = Time

Regards,
Shyam Pillai

Animation Carbon: http://www.animationcarbon.com

 

[John Crawford]

Shyam:
I tried that (I thought that it should work), but got an error message:

TextFrame(unknown member): Invalid request. This type of shape cannot
have a TextRange.

The type of the shape is -2(?)
and the HasTextFrame property is False. So I cannot use TextRange.
John

 

[John Crawford]

Steve:
Thanks. That was exactly what I was looking for. It seemed to me
that it had something to do with OLE, but I could not figure it out.
John