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 :/
Anzeige
Beispiel läuft ohne Fehlermeldung...
14.09.2015 14:14:09
Case
Hallo, :-)
also das Beispiel läuft bei mit ohne jede Fehlermeldung durch. Deine Gegebenheiten kenne ich nicht. :-) Servus
Case
AW: Beispiel läuft ohne Fehlermeldung...
15.09.2015 08:41:28
Senseye
Ja Danke für den Link,
musste den etwas an meinen Code anpassen, jetzt funktioniert es :)
Top
Grüße