Hallo ihr Lieben :)
ich habe folgendes Problem: Ich habe eine Präsentation in PP2003, in der einige Folien ausgeblendet sind, diese sollen bei der Nummerierung nicht auftauchen.
Dazu habe ich einen VBA-Code erstellt, aber es tauchen 2 Probleme auf:
a) Die Makros lassen sich nicht aktivieren und ich weiß nicht wieso
b) Die Zeile folie.HeadersFooters.Footer.Text = i wird nicht erkannt.
Würde mich über eure Antworten freuen! LG, Annika
(Folgenden Code hab eich verwendet:)
Sub nummerieren()
Dim zaehler As Long, i As Long, folie As Slide
i = 0
For Each folie In ActivePresentation.Slides
folie.HeadersFooters.Footer.Visible = msoTrue
zaehler = zaehler + 1
If ActivePresentation.Slides.Range(Array(zaehler)).SlideShowTransition.Hidden = msoFalse Then
i = i + 1
End If
folie.HeadersFooters.Footer.Text = i
Next
End Sub
|