#Notizen in #PowerPoint mit #VBA #löschen


Heute gibt’s wieder VBA-Code. Folgendes Häppchen löscht in allen offenen Präsentationen (nach Bestätigung durch den Benutzer oder die Benutzerin) den Inhalt der Notizenfelder:

Sub Delete_Notes()
Dim myPres As Presentation
Dim myPath As Variant
Dim mySlide As Slide
Dim I As Long

On Error GoTo Fehler

For Each myPres In PowerPoint.Presentations
If MsgBox(„Wollen Sie alle Notizen aus “ & myPres.Name & “ löschen?“ _
& vbCrLf & „(Die modifizierte Datei wird unter neuem Namen gespeichert.)“, vbYesNo, „Notizen löschen“) = vbYes Then
myPath = Left(myPres.FullName, Len(myPres.FullName) – 5) & „_mod“ & Right(myPres.FullName, 5)
myPres.SaveAs myPath

For Each mySlide In myPres.Slides
For I = mySlide.NotesPage.Shapes.Count To 1 Step -1
mySlide.NotesPage.Shapes(I).Delete
Next I
Next mySlide
End If
Next myPres

Schluss:
Set myPres = Nothing
Exit Sub

Fehler:
MsgBox „Error “ & Err.Number & “ – “ & Err.Description
GoTo Schluss
End Sub

Wozu das gut sein soll? Nun – Sie haben eine wundervolle Präsentation gehalten, und man bittet Sie um den Foliensatz zu wasweißich-Zwecken. Den Foliensatz geben Sie doch gerne weiter, gleichzeitig wollen Sie sicher gehen, dass Anmerkungen wie „Stundensatz nicht unter 100,- anfangen mit 120,-“ oder „Produkt nicht fertig“ nicht mitkommen.

Über katharinakanns

Microsoft Office Master Specialist mit viel Verständnis für IHR Geschäft - ich analysiere IHRE Situation, optimiere IHRE Prozesse, automatisiere IHRE Routineaufgaben, finde IHRE Lösung, unterrichte IHRE MitarbeiterInnen, mache Vorlagen mit IHRER CI, spare IHRE Zeit und IHR Geld. Ich freue mich darauf, SIE kennenlernen zu dürfen :-)
Dieser Beitrag wurde unter PowerPoint, VBA abgelegt und mit , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s