Problem mit Animation

Hallo,

ich habe gegoogelt und in diversen Foren gesucht und keine Lösung gefunden …

Ich habe ein Jeopardy-Spielbrett erstellt. Die Verlinkungen sind alle okay und funktionieren.
Nun hätte ich gern folgendes: Wenn ich auf dem Spielbrett auf eine Schaltfläche klicke, soll sie verschwunden oder andersfarbig sein, wenn ich wieder zurückgehe.
Mit der Animation: Beenden -> Verschwinden funktioniert das leider nicht.

Ich habe zwar diverse Templates gefunden in denen das funktioniert. Aber ich kann die „Formel“ nicht herausfinden.

Es wäre ein Traum, wenn ich rasch eine Antwort bekäme, weil ich das Spiel gern am Freitagabend nutzen würde…

Herzlichen Dank
Tibas

Hallo,

ich könnte folgende „Schnell-Lösung“ anbieten:

  1. Makro erstellen über „Extras > Makro“

  2. folgenden Code eingeben

    Set Objekt = Obj
    SlideShowWindows(Index:=1).View.AcceleratorsEnabled = msoFalse
    With Obj
    .Fill.ForeColor.RGB = RGB(180, 180, 180)
    ’ oder: .visible=msoFalse
    End With
    ActivePresentation.SlideShowWindow.View.GotoSlide 3 ’ hier Zielnummer eingeben
    ’ oder: ActivePresentation.SlideShowWindow.View.Next

  3. Der Schaltfläche über „Bildschirmpräsentation > Aktionseinstellungen“ das zuvor erstellte Makro zuweisen.

Da nicht einfach zur nächsten oder immer zur gleichen Folie gesprungen werden soll, fällt mir momentan nur ein, das Makro 15 Mal zu machen WeiterUndWeg1 bis 15, in jedem die Zielfolie zu verändern und jeweils den Schaltflächen zuweisen.

Gruß und viel Erfolg,
Kay