Add titles to notes and handouts?

  • Thread starter Thread starter William M. Bickley
  • Start date Start date
W

William M. Bickley

In PP2002, is there a way to automatically add the titles of slides to the
notes and handouts?

Bill
 
Try this code.

=========Begin============
Sub PopulateTitle()
Dim x As Integer

'Set notes pages to begin with slide titles
For x = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(x)
If .Layout <> ppLayoutBlank Then
If .Shapes.HasTitle = msoTrue Then
With .NotesPage.Shapes(2) _
.TextFrame.TextRange
.Text = ActivePresentation _
.Slides(x).Shapes.Title. _
TextFrame.TextRange.Text & _
vbCr & vbCr & .Text
End With
End If
End If
End With
Next x

End Sub
=======End=============

It isn't automatic, but it only requires a simple trigger to run.

BTW, beware: Run it only once, it will continue to add the titles to the
beginning of the notes section, even if they are already there.

As far as the handouts go, I'd recommend using the Handout Wizard, it can
add slide titles to multiple-slides-per-page handouts.
http://www.mvps.org/skp/how/


--
Bill Dilworth, Microsoft PPT MVP
===============
Please spend a few minutes checking vestprog2@
out www.pptfaq.com This link will yahoo.
answer most of our questions, before com
you think to ask them.

Change org to com to defuse anti-spam,
ant-virus, anti-nuisance misdirection.
..
..
 
It worked on the first slide in the presentation (exactly as I wish), but
not in any of the subsequent slides...

Bill
 
When you change to 'Outline view', are the titles listed? If not, then you
did not create the slides from a titled layout.

The macro only converts what is in the slide's assigned 'title placeholder'
to the note's page.

Bill D.
 
Hmmm. When I set up a simple,3-slide presentation, your macro works
perfectly. When I paste it into the presentation of interest, however, it
only works for the first slide, even though all of the titles are present in
the outline view. I think I may have added at least some of the titles to
the slides directly in the outline view, though, rather than when the slides
were created. Might that explain the problem?

Bill
 
Ok, there is a redundant check in the code that is bombing out the slides
you are not seeing. The copied slides are registering as a NoTitle layout,
even though they have one.

Try this instead...
=========Begin============
Sub PopulateTitle()
Dim x As Integer

For x = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(x)
If .Shapes.HasTitle = msoTrue Then
With .NotesPage.Shapes(2) _
.TextFrame.TextRange
.Text = ActivePresentation _
.Slides(x).Shapes.Title. _
TextFrame.TextRange.Text & _
vbCr & vbCr & .Text
End With
End If
End With
Next x
End Sub
=========End=============


--
Bill Dilworth, Microsoft PPT MVP
===============
Please spend a few minutes checking vestprog2@
out www.pptfaq.com This link will yahoo.
answer most of our questions, before com
you think to ask them.

Change org to com to defuse anti-spam,
ant-virus, anti-nuisance misdirection.
..
..
 
[CRITICAL UPDATE - Anyone using Office 2003 should install the critical
update as soon as possible. From PowerPoint, choose "Help -> Check for
Updates".]
[TOP ISSUE - Are you having difficulty opening presentations in PPT 2003
that you just created in PPT 2003? -
http://support.microsoft.com/?id=329820]

Hello,

PowerPoint doesn't provide the functionality that you are looking for
without resorting to VBA or add-ins.

If you (or anyone else reading this message) think that it's important that
PowerPoint provide this kind of functionality (without having to resort to
VBA or add-ins), don't forget to send your feedback (in YOUR OWN WORDS,
please) to Microsoft at:

http://register.microsoft.com/mswish/suggestion.asp

It's VERY important that, for EACH wish, you describe in detail, WHY it is
important TO YOU that your product suggestion be implemented. A good wish
submssion includes WHAT scenario, work-flow, or end-result is blocked by
not having a specific feature, HOW MUCH time and effort ($$$) is spent
working around a specific limitation of the current product, etc. Remember
that Microsoft receives THOUSANDS of product suggestions every day and we
read each one but, in any given product development cycle, there are ONLY
sufficient resources to address the ones that are MOST IMPORTANT to our
customers so take the extra time to state your case as CLEARLY and
COMPLETELY as possible so that we can FEEL YOUR PAIN.

IMPORTANT: Each submission should be a single suggestion (not a list of
suggestions).

John Langhans
Microsoft Corporation
Supportability Program Manager
Microsoft Office PowerPoint for Windows
Microsoft Office Picture Manager for Windows

For FAQ's, highlights and top issues, visit the Microsoft PowerPoint
support center at: http://support.microsoft.com/default.aspx?pr=ppt
Search the Microsoft Knowledge Base at:
http://support.microsoft.com/default.aspx?pr=kbhowto

This posting is provided "AS IS" with no warranties, and confers no rights.
Use of any included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm
 
Back
Top