How to hide notes in a power point presentation before e-mailing

[JuneJ]

I am using the Power Point program to store photos of rugs and furniture for
my customers. I have been successful in e-mailing these presentations to my
clients and they are able to open them, but I need to be able to hide my
notes from the client. I would like to send the entire presentation without
the notes.

 

[Bill Dilworth]

Copy the presentation (do not make the mistake of running this on your main
presentation file or you will be rather upset), run this macro and there
won't be any notes to hide.

**Delete notes page text (or text and shapes)
http://www.rdpslides.com/pptfaq/FAQ00178.htm

--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
yahoo2@ Please read the PowerPoint
yahoo. FAQ pages. They answer most
com of our questions.
www.pptfaq.com
..
..

 

[JuneJ]

I clicked on the link, but am unable to understand it.
I was able to find the directions on how to "hide the outline and notes on a
web presentation" but haven't found what I'm looking for as relates to a
power point presentation.

 

[Bill Dilworth]

To completely hide the notes, you will need to remove them from the
presentation. The macro simply automates this process.

So, if you want to forward a de-noted presentation, you need to ...

1) Copy the presentation.
2) Close all other presentations.
3) Type Alt+F11 (hold the ALT key while pressing the F11 key once) -- this
will open the Visual Basic Editor (VBE) window
4) Type ALT (release), I (release), M (release) -- this opens a new blank
code module
5) Cut and paste the code (copied from the link I suggested previously)
from below (do not copy the dashes above and below, just the code between)
6) Close the VBE window
7) Type ALT + F8 (hold the ALT while pressing the F8 key once) -- this opens
the Run Macro dialog box
8) Select 'BlitzTheNotesText' from the list
9) Click Run
10) Click OK when the macro is done removing all your notes text
11) Save this copy of the presentation that does not contain notes


-----------Begin Code Below-------------------
Sub BlitzTheNotesText()
Dim oSl As Slide
Dim oSh as Shape

For Each oSl In ActivePresentation.Slides
' Check each shape on the slide's notes page
For Each oSh in oSl.NotesPage.Shapes
' Is the shape a body text placeholder?
' If so, delete it.
If oSh.PlaceHolderFormat.Type = _
ppPlaceholderBody Then
oSh.Delete
End if
Next oSh
Next oSl
End Sub
-----------End Code-----------------------------

Post back if you need additional assistance.


--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
yahoo2@ Please read the PowerPoint
yahoo. FAQ pages. They answer most
com of our questions.
www.pptfaq.com
..
..

 

[JuneJ]

Thanks Bill !!

To completely hide the notes, you will need to remove them from the
presentation. The macro simply automates this process.

So, if you want to forward a de-noted presentation, you need to ...

1) Copy the presentation.
2) Close all other presentations.
3) Type Alt+F11 (hold the ALT key while pressing the F11 key once) -- this
will open the Visual Basic Editor (VBE) window
4) Type ALT (release), I (release), M (release) -- this opens a new blank
code module
5) Cut and paste the code (copied from the link I suggested previously)
from below (do not copy the dashes above and below, just the code between)
6) Close the VBE window
7) Type ALT + F8 (hold the ALT while pressing the F8 key once) -- this opens
the Run Macro dialog box
8) Select 'BlitzTheNotesText' from the list
9) Click Run
10) Click OK when the macro is done removing all your notes text
11) Save this copy of the presentation that does not contain notes


-----------Begin Code Below-------------------
Sub BlitzTheNotesText()
Dim oSl As Slide
Dim oSh as Shape

For Each oSl In ActivePresentation.Slides
' Check each shape on the slide's notes page
For Each oSh in oSl.NotesPage.Shapes
' Is the shape a body text placeholder?
' If so, delete it.
If oSh.PlaceHolderFormat.Type = _
ppPlaceholderBody Then
oSh.Delete
End if
Next oSh
Next oSl
End Sub
-----------End Code-----------------------------

Post back if you need additional assistance.


--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
yahoo2@ Please read the PowerPoint
yahoo. FAQ pages. They answer most
com of our questions.
www.pptfaq.com
..
..

 

[Grace]

Hi Bill,

I've just tried your macro to delete notes from ppt's.
I'm getting an error and my limited knowledge of VBA is not enough to debug.

The error reads:
Run-time error '-2147188160 (80048240)':
PlaceholderFormat (unknown member) : Invalid request. Shape is not a
placeholder.

When I click on "Debug", the following line is highlighted:
" If oSh.PlaceholderFormat.Type = ppPlaceholderBody Then"

Can you help?
Thanks in advance!
Grace.

 

[Grace]

Hi Steve

Thanks for reporting that. Here's a version that should correct the problem
(and the FAQ has been updated as well)

This versoin worked like a charm )
Thanks a million!
Grace.

 

[AG]

I'd really like to know as well. This site:

http://informationweek.smallbizpipeline.com/163101560

Offers some tips, but I cant make that code run...

 

[Austin Myers]

Just delete all your notes and save the presentation with a new name. That
will take less time than it did for you to type this post. <g>

Austin Myers
MS PowerPoint MVP Team

PowerPoint Video and PowerPoint Sound Solutions www.pfcmedia.com

 

[Echo S]

Try this one instead.

Delete notes page text (or text and shapes)
http://www.rdpslides.com/pptfaq/FAQ00178.htm