File Path in Footer

[r_mundhra]

Is there any way to automatically(may be with help of a macro) insert complete file location path in footer so that the master slide gets updated consequently the file location appears in all ppt slides .
Thanx/ Rajesh

[Paul_Hossler]

In 2007, try this


Option Explicit
Sub InsertFilePathIntoFooter()
Dim oCustomLayout As CustomLayout
Dim oSlide As Slide
For Each oCustomLayout In ActivePresentation.SlideMaster.CustomLayouts
oCustomLayout.HeadersFooters.Footer.Text = ActivePresentation.FullName
Next

For Each oSlide In ActivePresentation.Slides
oSlide.HeadersFooters.Footer.Visible = msoTrue
Next
End Sub


and see if it does what you want

Paul