View Single Post
Old 01-11-2018, 03:26 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2016
Join Date: Nov 2008
Location: UK
Posts: 1,911
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about

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

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
End Sub
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote