Pfadangabe in der Fusszeile bei Powerpoint 2003?

[corona25]

hallo,

da es dafür ja keine variable gibt, habe ich ein makro erstellt.

es funktioniert auch, solange nur eine folie in der datei ist. sobald ich jedoch 2 folien habe, die datei irgendwo anders hinspeichere und dann das makro drüber laufen lasse kommt ein laufzeitfehler: slide (unknown member) : invalid request. command cannot be applied to a slide range with multiple slides.

code:

Sub DateinameFusszeile()
With ActivePresentation.Slides.Range.HeadersFooters
.Footer.Text = ActivePresentation.Path & "\" & ActivePresentation.Name
.SlideNumber.Visible = msoFalse
End With
End Sub

was muss ich daran ändern?

 

[niz]

Probier mal

Sub Dateiname_Fusszeile()
  With ActivePresentation
   If .HasTitleMaster Then
    .TitleMaster.HeadersFooters.Footer.Text = ActivePresentation.FullName
    .TitleMaster.HeadersFooters.Footer.Visible = msoTrue
   End If
    .SlideMaster.HeadersFooters.Footer.Text = ActivePresentation.FullName
    .SlideMaster.HeadersFooters.Footer.Visible = msoTrue
 End With
End Sub

.FullName und .Path & \ & .Name sind imho identisch.