Thema Datum  Von Nutzer Rating
Antwort
Rot Makro für alle Powerpointfolien mit Ausnahme von der Ersten
 16.04.2013 19:28:17 Gregor1040
NotSolved
17.04.2013 11:35:06 Holger
*****
Solved
17.04.2013 13:14:52 Gregor1040
Solved

Ansicht des Beitrags:
Von:
Gregor1040		 Datum:
16.04.2013 19:28:17		 Views:
2625		 Rating:
     
Antwort:
  Ja
Thema:
Makro für alle Powerpointfolien mit Ausnahme von der Ersten

Hallo verehrte Herrschaften,

ich möchte gerne meine PowerPointFolie so nummerieren, dass statt zusätzlich zur einfachen Foliennummer direkt auch die Anzahl der Gesamtfolien steht, also:

"Folie 1 von 20", "Folie 2 von 20", etc....

Dafür habe ich bereits folgendes Makro:

Sub SeitenzahlenXvonY_visible()
' Seitenzahlen X von Y
Dim AnzSeiten As Long
Dim Counter As Integer
AnzSeiten = ActivePresentation.Slides.Count
    With ActivePresentation.Slides
        For Counter = 1 To AnzSeiten
          .Range(Counter).HeadersFooters.Footer.Visible = msoCTrue
          .Range(Counter).HeadersFooters.Footer.Text = _
           "Folie " & Counter & " von " & AnzSeiten
        Next Counter
    End With
End Sub

Nun möchte ich aber noch, dass die erste Folie nicht mitgezählt wird, damit die erste Folie nach der Titelfolie Folie "1 von 20" aufzeigt.
Über Hilfe wäre ich sehr dankbar!

Grüße

Gregor

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro für alle Powerpointfolien mit Ausnahme von der Ersten
 16.04.2013 19:28:17 Gregor1040
NotSolved
17.04.2013 11:35:06 Holger
*****
Solved
17.04.2013 13:14:52 Gregor1040
Solved