Folienabschnitte löschen VBA

Bild

Betrifft: Folienabschnitte löschen VBA
von: Senseye
Geschrieben am: 14.09.2015 09:39:03

Hallo Leute,
wie kann ich bei einer Präsentation die Folienabschnitte mittels VBA löschen?
Viele Grüße

Bild

Betrifft: Hier gibt es alles...
von: Case
Geschrieben am: 14.09.2015 10:05:47
Hallo, :-)
... "Pfannenfertig":
Section Counts...
Servus
Case


Bild

Betrifft: AW: Hier gibt es alles...
von: Senseye
Geschrieben am: 14.09.2015 11:39:33
Hallo Case,
ich bräuchte doch folgenden Abschnitt

  • With ActivePresentation.SectionProperties
    ' Unlike in the user interface, there's no simple way to remove
    ' all the sections, so you'll need to write code like this
    ' to do it:
    For i = .Count To 1 Step -1
    ' Pass True in the second parameter to delete the
    ' slides in the section:
    .Delete i, False
    Next i

    ' Now delete all the slides except the first one, to reset
    ' back to the way the demonstration started:
    CleanupDemo
    End With

  • Bei mir kommt allerdings immer eine Fehlermeldung :/

    Bild

    Betrifft: Beispiel läuft ohne Fehlermeldung...
    von: Case
    Geschrieben am: 14.09.2015 14:14:09
    Hallo, :-)
    also das Beispiel läuft bei mit ohne jede Fehlermeldung durch. Deine Gegebenheiten kenne ich nicht. :-)
    Servus
    Case


    Bild

    Betrifft: AW: Beispiel läuft ohne Fehlermeldung...
    von: Senseye
    Geschrieben am: 15.09.2015 08:41:28
    Ja Danke für den Link,
    musste den etwas an meinen Code anpassen, jetzt funktioniert es :)
    Top
    Grüße

     Bild

    Beiträge aus den Excel-Beispielen zum Thema "Folienabschnitte löschen VBA"