I found it ...

[Heiner Ziss]

Hello,

I suppose there are more elegant solutions. Any improvements would be
appreciated.

Option Explicit

Sub alias_footer()
Dim Pres As Presentation
Dim Sld As Slide
Dim i As Integer

Set Pres = ActivePresentation

On Error Resume Next

For i = 1 To Pres.Slides.Count
Pres.Slides(i).Shapes("AliasFooter" & i).Delete
Pres.Slides(i).Shapes.AddTextbox(msoTextOrientationHorizontal, 35.75,
462.5, 400, 50.5).Name = "AliasFooter" & i
Pres.Slides(i).Shapes("AliasFooter" & i).TextFrame.TextRange.Text = _
"Datei:" + " " + ActivePresentation.Name + Chr$(13) + _
"Quelle:" + " Heiner Ziss . Projektberater und Coach" + Chr$(13)
+ _
"Stand:" + " 30.Juni 2003"
With Pres.Slides(i).Shapes("AliasFooter" & i)
With .TextFrame.TextRange.Font
.Name = "Arial"
.Size = 12
.Color.RGB = RGB(0, 0, 150)
End With
End With
Next i
End Sub

Regards
Heiner