Hi,

I have written some Excel vba code that is supposed to
change the value of a text box in PowerPoint. I am using
Excel 2002 and PowerPoint 2002 and the problem is that
when I try and run the code it errors out and says :

Run-time error '-2147188160 (80048240)' :
TextFrame (unknown member ): Invalid request. This type of
shape cannot have a text range.

I am trying to update text within a rectangle - so could
this be the reason my code of :

oPPTApp.ActivePresentation.Slides(slide_no).Select
With oPPTApp.ActivePresentation.Slides(slide_no)
For Each oPPTShape In .Shapes
If oPPTShape.TextFrame.TextRange.Text = find_text Then
oPPTShape.TextFrame.TextRange.Text = replace_text

......


does not work? How else could I get around the problem of
trying to update a rectangle with text within it?

Many thanks
KD