Microsoft Office Forums - View Single Post - Text field that will populate other fields

JohnWilson · 11-22-2012, 03:54 AM

This is only possible if you can code or know a coder.

Sample code

Code:

Sub copyTitles()
Dim oshp As Shape
Dim osld As Slide
Dim strtext As String
If ActivePresentation.Slides(1).Shapes.HasTitle Then _
strtext = ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange
For Each osld In ActivePresentation.Slides
If osld.Shapes.HasTitle Then osld.Shapes.Title.TextFrame.TextRange.Text = strtext
Next
End Sub

see www.pptalchemy.co.uk/vba.html for how to use code