VB Code to add new chart with footer

[Rob Flott]

I am using MS PowerPoint 2007 and need help writing the code to add a
new blank chart with a footer that reads "Source: XYZ"

So far all I have been able to write is the code to add a new blank
chart, and cannot figure out how to include the desired footer.

Sub AddNewChart()
ActivePresentation.Slides.Add(Index:=2,
Layout:=ppLayoutText).Select
ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank
End Sub

Appreciate any help.


Thanks