Wenden Sie ein Folienlayout erneut auf vorhandene Folien an

Ich habe eine PowerPoint-Präsentation, in der die ungeraden Folien das Master-Layout A und die geraden Folien das Master-Layout B haben (mit wenigen Ausnahmen, die ich manuell sortieren kann). Wenn ich eines der Layouts aktualisiere (z. B. Platzhalter hinzufüge oder verschiebe), muss ich jede andere Folie manuell auswählen, um das Layout erneut auf sie anzuwenden. Wie kann ich das Layout automatisch wieder auf diese Folien anwenden?

Wenn es keine eingebaute Funktion dafür gibt (oder selbst wenn es eine gibt!), Wäre ein Makro genauso nützlich.

microsoft-office microsoft-powerpoint microsoft-powerpoint-2013

— wizzwizz4
quelle

Ich bin kein Stammgast hier, daher war ich mir nicht ganz sicher, wie ich es markieren sollte. Wenn es falsch markiert ist, beheben Sie es bitte! :-)

— wizzwizz4

Ihre Tags sind relevant - kein Problem, aber ich denke, Sie müssen nicht einmal Makros verwenden ... Aktivieren Sie einfach die Option "Auf alle Folien anwenden" in der Symbolleiste. Auch wenn Sie Code diskutieren möchten, posten Sie in www.stackoverflow.com

— ClobberXD

@AnandS Ich möchte nicht über Code diskutieren, da ich dann das XY-Problem verleumden würde und "gib mir den Code" -Fragen dort nicht geschätzt werden (oder hier, aber das ist nicht ganz einer). Und ich möchte nicht die Option "Auf alle Folien anwenden". Ich möchte es nur auf Folie 4 und alle anderen Folien nach und einschließlich 7

— anwenden

Danke fürs klarstellen! Und ich glaube, Sie haben mich falsch verstanden - ich fordere Sie nicht auf, offen nach dem vollständigen Code zu fragen, sondern Sie auf, diese Frage in Stack Overflow zu verschieben, da es um das Codieren geht ...

— ClobberXD

@AnandS Ich hatte gehofft, dass es eine integrierte Funktion gibt, mit der ich das tun kann. Sie alle haben bereits das richtige Folienlayout. Ich möchte es nur wieder auf diejenigen anwenden, die es bereits haben, gemäß support.office.com/en-us/article/…

— wizzwizz4

Antworten:

Da ein Präsentationsdesign normalerweise nicht aus 32 Layouts besteht, gehe ich davon aus, dass Sie ein benutzerdefiniertes Layout haben. Versuchen Sie dies auf jeden Fall, indem Sie 2 durch die richtige Zahl ersetzen:

Sub ReapplyMaster()
    Dim slidenum As Long
    For slidenum = 3 To ActivePresentation.Slides.Count Step 2
        With ActivePresentation.Slides(slidenum)

            .CustomLayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(2)

        End With
    Next
End Sub

— Steve Rindsberg
quelle

Ich habe die Frage geändert, um das Makro zu entfernen, aber das macht Ihre Antwort nicht ungültig. Würde .CustomLayout = .CustomLayoutfunktionieren

— wizzwizz4

Es wäre schneller, es zu versuchen, als hier auf eine Antwort zu warten, nein?

— Steve Rindsberg

Glaubst du, ich sollte deine Antwort akzeptieren (zeigt viel Aufwand und ist erweiterbar) oder die Antwort, die ich gepostet habe (ist eine integrierte Funktion, die für Nicht-Power-Benutzer nützlicher ist)?

— Wizzwizz4

Da dies SuperUser und nicht StackOverflow ist, würde ich Ihre eigene Antwort verwenden (was mehr oder weniger dem Vorschlag entspricht, den ich zuvor gemacht habe).

— Steve Rindsberg

Danke für Ihre Hilfe. Ich werde nur 22 Stunden warten, bevor ich akzeptiere, nur weil ich Lust dazu habe und definitiv nicht, weil das System eine Einschränkung von> 48 Stunden hat.

— Wizzwizz4

Um das aktuelle Folienlayout erneut auf eine Folie anzuwenden, klicken Sie mit der rechten Maustaste auf die Folie und wählen Sie "Folie zurücksetzen" aus dem Kontextmenü. Sie können Folienbereiche oder sogar die gesamte Präsentation im linken Bereich auswählen. Dadurch wird das Layout für alle Folien erneut angewendet, nicht nur für die angegebenen, aber jede Folie behält ihr vorhandenes Layout bei.

— wizzwizz4
quelle