Wie löse ich eine Animation aus, wenn auf einen Hyperlink auf einer anderen Folie geklickt wurde?

398
leandriis

Ich würde gerne wissen, ob es möglich ist, eine Animation auf einer bestimmten Folie auszulösen, wenn einem bestimmten Hyperlink auf einer anderen Folie derselben Präsentation gefolgt wurde.

Hintergrund:

Derzeit verwende ich PowerPoint2016, um die Folien für ein PowerPoint-Karaoke-Spiel zu erstellen . Ich habe mit einer Auswahlfolie begonnen, auf der fünf kleine Symbole für jeden der fünf Foliensätze stehen, die ich vorbereitet habe. Jedes Symbol ist ein Hyperlink zur ersten Folie des entsprechenden Satzes.
Nachdem der Foliensatz abgeschlossen ist, wird eine Folie mit einem Hyperlink zurück zur ausgewählten Folie angezeigt und das entsprechende Symbol wird entfernt (über eine Animation erreicht, die durch Klicken auf das Symbol mit dem Hyperlink ausgelöst wird).
Als letzte Folie möchte ich jetzt eine Abstimmungsfolie hinzufügen, die alle Symbole der Foliensätze zeigt, die im gesamten Spiel verwendet wurden. Um genau zu sein: Wenn drei von fünf Dia-Sets verwendet würden, möchte ich, dass die Abstimmungsfolie nur diese drei Symbole anstelle von allen fünf enthält.
Meine Idee war jetzt, eine Animation auf der Abstimmungsfolie auszulösen, je nachdem, auf welchen Hyperlink während des Spiels geklickt wurde.

Ich würde mich sehr über eine Idee freuen, wie ich das oben beschriebene Verhalten erreichen könnte, möglicherweise auch mit einem völlig anderen Ansatz. Bitte lassen Sie mich auch wissen, wenn Informationen fehlen.

3

1 Antwort auf die Frage

1
leandriis

Obwohl ich nicht herausfinden konnte, wie ein Animationsauslöser auf einer anderen Folie als der Animation selbst erstellt werden kann, konnte ich mein Problem mithilfe des folgenden VBA-Codes lösen. 

Option Explicit Private Const VotingSlideAs Integer = 5 Private Const TargetSlideNumber As Integer = 3   Sub FirstIcon() Dim myPresentation As Presentation Dim mySlide As Slide Dim myImageBox As Shape Dim myTextBox As Shape  Set myPresentation = ActivePresentation Set mySlide = myPresentaion.Slides.Item(VotingSlide) Set myImageBox = mySlide.Shapes.AddPicture("filename", msoCTrue, msoCTrue, 100, 100, 85, 85)  With SlideShowWindows(1).View .GotoSlide (TargetSlideNumber) End With  End Sub

Der obige Code wird über ein Symbol auf der Auswahlfolie zugewiesen insert action. Wenn Sie auf das Symbol klicken, fügt der Code das Bild filenamean der angegebenen Position der Abstimmungsfolie ein und löst einen Sprung auf die Folie aus, die mit TargetSlideNumber(Beginn der entsprechenden Foliengruppe ) angegeben wurde. Das Wiederholen des analogen Codes für alle Symbole auf der Auswahlfolie führt schließlich zu dem gewünschten Verhalten.

Verwandte Probleme