Looping to control Controls

[Guest]

I have a text box on certain slides in my presentation (all are named
'VOTextBox') that I want to make visible = true or visible = false based on
user input. Initially I will start by making them all visible = false. I have
the following code in my module, with the expectation that PPT will return an
error if the active slide does not have a control by that name, but the error
trapping doesn't seem to work:

Sub VOTextOff()
Dim x As Long
On Error GoTo NoTextBox

For x = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(x).Shapes("VOTextBox").Visible = msoFalse

NoTextBox:
Err.Clear
Next x

End Sub

Help is appreciated.

 

[Guest]

Are these control text boxes (not normal text boxes)?

If so you will need to use .Shapes("VOTextBox").OLEFormat.Object.visible
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk

 

[Guest]

Yes, they're ActiveX controls. I tried your solution first but got the same
result.

 

[David M. Marcovitz]

Try this instead:

Sub VOTextOff()
Dim x As Long
On Error GoTo NoTextBox
For x = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(x).Shapes("VOTextBox").Visible =
msoFalse
Next x
NoTextBox:
Resume Next

End Sub


--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

 

[David M. Marcovitz]

Oh. In that case, combine John's solution and mine,a nd you should get
something that works.
--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

 

[Guest]

David:

I don't understand what you're referring to as your solution.

Thanks

Kevin

 

[David M. Marcovitz]

I was referring to my response that said:

Try this instead:

Sub VOTextOff()
Dim x As Long
On Error GoTo NoTextBox
For x = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(x).Shapes("VOTextBox").Visible =
msoFalse
Next x
NoTextBox:
Resume Next

End Sub

If you use John's line in place of the ActivePresentation line, it should
work (but I only tested it with my line and regular autoshapes, not
John's line and control shapes).

--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

 

[Steve Rindsberg]

I have a text box on certain slides in my presentation (all are named
'VOTextBox') that I want to make visible = true or visible = false based on
user input. Initially I will start by making them all visible = false. I have
the following code in my module, with the expectation that PPT will return an
error if the active slide does not have a control by that name, but the error
trapping doesn't seem to work:

Try this instead:

Sub VOTextOff()
Dim x As Long
On Error GoTo NoTextBox

For x = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(x).Shapes("VOTextBox").Visible = msoFalse
Next

NormalExit:
Exit Sub

NoTextBox:
Resume Next

End Sub

OR:

Sub VOTextOff()
Dim x As Long
On Error Resume Next
For x = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(x).Shapes("VOTextBox").Visible = msoFalse
Next
End Sub

Also, verify the names of the text box controls.
If you changed the name of the first one then copy/pasted to other slides, they
won't be named VOTextBox necessarily.