Makrothek
MS Powerpoint betrifft MS Powerpoint

Problembeschreibung:

Sie wollen Folien mit Elementen versehen, die beliebig ein und ausgeblendet werden können und nach Beendigung der Präsentation diesen Status weiterhin behalten. Damit könnte man z. B. Entscheidungsvorlagen generieren, während der Präsentation die Entscheidung visualisieren und nach der Präsentation die Entscheidung sogar dokumentieren.

Für Ja/Nein-Entscheidungen bieten sich z. B. Checkboxen an, die bei Anklicken ihren Status ändern.

Lösungsidee

Für die Lösung des Problems kann das MouseKlick-Ereignis in Powerpoint genutzt werden, um ein spezielles Makro ausführen zu lassen, was dann den Status der gwünschten Checkbox ändert.

Jedes Objekt (Checkbox) bekommt einen eindeutigen Namen (siehe Objekte benennen). Der nachfolgende Code zeigt das Makro, dass bei MouseKlick aufgerufen wird und den Status der Checkbox ändert. Eine Checkbox besteht auch einer Box (Rahmen) und einem ein- bzw. auszublendenden Checker. Die Zusammengehörigkeit der beiden Elemente erkennt das Makro am gleichen Namensbestandteil bis zum 1. Unterstrich ("_")

Sie können sich aber auch hier ein Beispiel herunterladen.

Programmcode


'Ereignisprozedur zum Setzen oder Wegnehmen der Checkbox
'Funktioniert nur während der Präsentation
Sub Setze_Checkbox(ByVal Objekt As Shape)
'blendet den entsprechenden Checker ein/aus
Dim Objektname As Variant
Dim Checkername As String

Objektname = Split(Objekt.Name, "_")
Checkername = Objektname(0) & "_Checker"
'Ein- / Ausblenden
With SlideShowWindows(1).View.Slide
If .Shapes(Checkername).Visible = msoFalse Then
'Einblenden
.Shapes(Checkername).Visible = msoTrue
Else
'ausblenden
.Shapes(Checkername).Visible = msoFalse
End If
End With
End Sub