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