Copy slide title to all slides

jeffreybrown · #1 01-10-2018, 03:57 PM

I've tried a search on-line for how to copy the title from slide 2 and paste that title to all other slides (minus the first slide), but can't seem to find the right VBA routine.

Any thoughts?

JohnWilson · #2 01-11-2018, 03:26 AM

You probably need to explain more fully but see if this works

Code:

Sub make_Titles()

Dim L As Long
For L = 2 To ActivePresentation.Slides.Count
If ActivePresentation.Slides(L).Shapes.HasTitle Then
ActivePresentation.Slides(L).Shapes.Title.TextFrame.TextRange = ActivePresentation.Slides(2).Shapes.Title.TextFrame.TextRange
End If
Next
End Sub

jeffreybrown · #3 01-11-2018, 05:38 AM

Thanks John. This looks perfect and I'll give it a go today at work.

JohnWilson · #4 01-11-2018, 06:03 AM

Make sure slide 2 HAS a title!

jeffreybrown · #5 01-11-2018, 06:44 PM

After testing, this worked out well. Thanks again.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need macro to copy object on slide 4 to current slide	djlee	PowerPoint	2	02-11-2015 10:37 AM
Same slide title for all slides	viki2000	PowerPoint	1	12-30-2013 03:14 AM
Add a slide title next to the slide numbers?	thecaller	PowerPoint	3	11-06-2013 11:17 AM
Master Title Slide -- HELP!	Piupiu	PowerPoint	0	09-15-2012 09:21 PM
slide image wont copy with text to new slide	lewis.mulhollen	PowerPoint	1	12-17-2011 03:17 AM