Hide textboxes when printing

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Dale Fye - 16 Nov 2006 20:51 GMT

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.

Signature

Email address is not valid.
Please reply to newsgroup only.

Reply to this Message

John Wilson - 16 Nov 2006 21:29 GMT

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

Signature

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

> I'm still using XP.
>
[quoted text clipped - 10 lines]
> to false.
> Any help you can give me would be greatly appreciated.

Reply to this Message

Dale Fye - 16 Nov 2006 21:38 GMT

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

Signature

Email address is not valid.
Please reply to newsgroup only.

> Dale off the top of my head something like this maybe
>
[quoted text clipped - 22 lines]
> > to false.
> > Any help you can give me would be greatly appreciated.

Reply to this Message

John Wilson - 16 Nov 2006 22:10 GMT

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

Signature

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,
>
[quoted text clipped - 37 lines]
> > > to false.
> > > Any help you can give me would be greatly appreciated.

Reply to this Message

Dale Fye - 17 Nov 2006 04:06 GMT

Yeah,

That would do it.

Thanks, John

> 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
[quoted text clipped - 59 lines]
>> > > to false.
>> > > Any help you can give me would be greatly appreciated.

Reply to this Message

Steve Rindsberg - 17 Nov 2006 04:23 GMT

> I'm still using XP.
>
[quoted text clipped - 4 lines]
> 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.

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

> 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.

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Reply to this Message

Dale Fye - 17 Nov 2006 13:10 GMT

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

Signature

Email address is not valid.
Please reply to newsgroup only.

> > I'm still using XP.
> >
[quoted text clipped - 18 lines]
> PPTools: www.pptools.com
> ================================================

Reply to this Message

Steve Rindsberg - 17 Nov 2006 16:27 GMT

> 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.

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.

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Reply to this Message