Error using vba

[Wayne]

I am new at VBA and trying to use VBA in powerPoint 2007 in a vista os
to create a quiz. I am reading a set of question into an array of
questions from a file and want to add one question at a time to a text
box. I am using the following code:
ActivePresentation.Slides(5).Shapes("TextBox
19").TextFrame.TextRange.Text = question(number)

but I have been getting the following error:

Run-time error '-2147188160 (80048240)':

Item TextBox 19 not found in the Shapes collection.

But when I check the object code using either the selection and
visibility option in powerPoint or the code from example 8 from David
Marcovitz

Public Sub GetObjectName()
If ActiveWindow.Selection.Type = ppSelectionShapes _
Or ActiveWindow.Selection.Type = ppSelectionText Then
If ActiveWindow.Selection.ShapeRange.Count = 1 Then
MsgBox (ActiveWindow.Selection.ShapeRange.Name)
Else
MsgBox ("You have selected more than one shape.")
End If
Else
MsgBox ("No shapes are selected.")
End If
End Sub

I get that the object name is TextBox 19.

Please Help

 

[Bill Dilworth]

VBA can be picky. Is there a space between the Textbox part and the 19 part
of the object name?

Bill Dilworth

 

[John Wilson]

If you have not renamed it the name is probably TextBox19 (no space)

I would rename to something more useful in the selection / visibility pane
though

 

[David Marcovitz]

As John and Steve suggested, you might be missing something with the spaces
and as John suggested, you might try to use the SetObjectName macro (in
Example 8.7) to give it your own name so you are sure exactly what it is.
The other problem I could see is if you are really doing all of this on a
different slide than Slides(5). Perhaps, you are working with a different
slide.
--David

--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland

 

[Phil K]

Don't mean to hijack this but I figured the problem is similar:
I've read David's book, looked at other examples and I keep getting the
following

Compile Error ... Method or Data Member not found
And the word Shapes is highlighted in blue
for the following.\:
Private Sub CommandButton1_Click()
ActivePresentation.SlideShowWindow.View.Shapes("Picture4").Visible = False
End Sub

I've placed a space between picture and 4 and still same error.

I'm trying to make the Shape disappear in VBA. Since it is part of an
overall VBA program. I can animate it but I need to do using VBA. I am
using PPT 2003 with Vista

 

[David Marcovitz]

Is the shape a regular AutoShape or a control shape? I think all our answers
were assuming that it was a regular AutoShape, but a control shape would act
differently and explain the problems.
--David

Don't mean to hijack this but I figured the problem is similar:
I've read David's book, looked at other examples and I keep getting the
following

Compile Error ... Method or Data Member not found
And the word Shapes is highlighted in blue
for the following.\:
Private Sub CommandButton1_Click()
ActivePresentation.SlideShowWindow.View.Shapes("Picture4").Visible = False
End Sub

I've placed a space between picture and 4 and still same error.

I'm trying to make the Shape disappear in VBA. Since it is part of an
overall VBA program. I can animate it but I need to do using VBA. I am
using PPT 2003 with Vista

--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland

 

[Phil K]

Steve .. The routine gave me Picture 4. I even tried a new rectangular
shape and I got the same error. I tried with or without space between
Picture 4.

David .. Not 100% sure what you mean by Auto shape or control shape. I
created a graphic that I would like to disappear when one clicks on the
command button, and appear when another command button is clicked. I did
select a shape from the AutoShape selections just to try out and i get the
same error.

Thanks for both for helping

 

[Phil K]

Thanks Steve .. I tried the short routine and it would give me Picture 4 for
the graphic and if I tried a shape it would give me Rectangle 7. I still get
the error.

 

[Phil K]

I run the routine and all it gave me was Picture 4.

Thanks Steve

phil

 

[Phil K]

With your help and Dave's book, I was able to do what I wanted to do .. It
was trial and error, but both of your information got me through the
problem..

Steve your little routine was a great help, and Dave one of your answers in
another postings " ActivePresentation.Slides(3).Shapes("Picture 33").Visible
= msoFalse" sure helped ..

Thanks again to both.

Phil

 

[David Marcovitz]

Great. I'm glad you got it working.
--David

With your help and Dave's book, I was able to do what I wanted to do .. It
was trial and error, but both of your information got me through the
problem..

Steve your little routine was a great help, and Dave one of your answers in
another postings " ActivePresentation.Slides(3).Shapes("Picture 33").Visible
= msoFalse" sure helped ..

Thanks again to both.

Phil

--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland