Hide textboxes when printing

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I'm still using XP.

I have a briefing that has a bunch of command buttons that I use to jump
around the briefing to get to various levels of detail.

When I print this briefing, I would like to hide these command buttons so
that they do not print. Anyone know an easy way to accomplish this? I am an
Access/SQL developer, so I'm familiar with VBA, but not the PPT object model.


I assume there is a way to loop through the slides in a slideshow, search
for command button controls, and when I find them, set their visible property
to false.
Any help you can give me would be greatly appreciated.
 
Dale off the top of my head something like this maybe

Sub notvisible()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = 12 Then oshp.Visible = False
Next oshp
Next osld
End Sub
--
Did that answer the question / help?
___________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk
 
John,

Thanks for the reply. I'm sure it will point me in the right direction.

Unfortunately, I found that I couldn't use the command button, because it
didn't have a hyperlink property, which was the easy way to make this work,
so I used the text control (not the one on the programming tool bar, the one
on the PPT tool bar), actually, it is probably more like an Access label than
a textbox. I was able to format it with a raised special effect, make the
background look like a button (color), and use the hyperlink property.

The thing is, I cannot figure out how to name this object(shape?). Any ideas?

Dale
 
You would want to add some error trapping as it will error with no shape
seleced and multi selections could be a bad idea too

Sub namer()
instring = InputBox("Name of selected shape")
If ActiveWindow.Selection.ShapeRange.Count <> 1 Then
MsgBox ("One shape please")
Exit Sub
End If
ActiveWindow.Selection.ShapeRange.Name = instring
End Sub
--
Did that answer the question / help?
___________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk
 
Yeah,

That would do it.

Thanks, John


John Wilson said:
You would want to add some error trapping as it will error with no shape
seleced and multi selections could be a bad idea too

Sub namer()
instring = InputBox("Name of selected shape")
If ActiveWindow.Selection.ShapeRange.Count <> 1 Then
MsgBox ("One shape please")
Exit Sub
End If
ActiveWindow.Selection.ShapeRange.Name = instring
End Sub
--
Did that answer the question / help?
___________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk
Click to expand...
 
I'm still using XP.

I have a briefing that has a bunch of command buttons that I use to jump
around the briefing to get to various levels of detail.

When I print this briefing, I would like to hide these command buttons so
that they do not print. Anyone know an easy way to accomplish this? I am an
Access/SQL developer, so I'm familiar with VBA, but not the PPT object model.
Click to expand...

You may not need VBA. You can choose View, GrayScale then right click the
gadgets you want to lose, click GrayScale Setting and choose Don't Show.




I assume there is a way to loop through the slides in a slideshow, search
 
Thanks Steve.

I think I prefer the automated solution, so I can make these things visible
or hide them by running a simple macro. When all is said and done, I'll
probably have 40 or 50 buttons on 30+ slides.

Dale
 
Dale Fye said:
Thanks Steve.

I think I prefer the automated solution, so I can make these things visible
or hide them by running a simple macro. When all is said and done, I'll
probably have 40 or 50 buttons on 30+ slides.
Click to expand...

That makes sense. Of course, you could combine the two approaches ... have the
macro also set the grayscale settings to "don't show".

That way, anyone could print (to b/w at least) w/o needing to run macros.

Anyhow, if you run into any problems creating the macros, holler.
 
Back
Top