Office: Bildpräsentation mit Musik

Geschätzte Community
Folgendes Problem: Bei einer Bildpräsentation (Reisebericht) habe ich Musik hinterlegt.
Wenn ich nun diese Präsentation abspiele und bei einzelnen Bilder länger verweilen möchte, läuft die Musik weiter und ist somit eigentlich zu früh beendet. Gibt es die Möglichkeit das Audio-file auch zu stoppen und beides wieder mit Mausklick fortzuführen?
Danke für Hilfe

 

Hallo Kardi,
PPT selbst kann das so nicht, aber mit VBA ist das möglich. Dazu brauchst Du dieses Makro in einem Standard-Modul:

Code:

Dim isPaused As Boolean

Sub TogglePause()
    Dim ssw As SlideShowWindow
    Set ssw = ActivePresentation.SlideShowWindow

    ' Folien pausieren/fortsetzen
    If isPaused = False Then
        ssw.View.Pause
        PauseAudio ssw.View.Slide
        isPaused = True
    Else
        ssw.View.Resume
        ResumeAudio ssw.View.Slide
        isPaused = False
    End If
End Sub

Sub PauseAudio(sl As Slide)
    Dim shp As Shape
    For Each shp In sl.Shapes
        If shp.Type = msoMedia Then
            shp.MediaFormat.Pause
        End If
    Next shp
End Sub

Sub ResumeAudio(sl As Slide)
    Dim shp As Shape
    For Each shp In sl.Shapes
        If shp.Type = msoMedia Then
            shp.MediaFormat.Play
        End If
    Next shp
End Sub

Dann kommt entweder lästige Handarbeit: nämlich musst Du vor (als Oberfläche) jede Folie ein transparentes Shape legen, dem Du die Sub TogglePause zuweist, oder Du legst den Aufruf auf eine F-Taste.

Aaah! Eine Alternative noch: Lass die Musik als Endlosschleife laufen (wenn sie nicht tatsächlich Folien-bezogen ist). Das Abschalten des Soundtracks kann nämlich ziemlich abrupt wirken und stören.

Viel Erfolg!

 

Oh- vielen Dank. Nun- in solchen Sachen bin ich nicht bewandert und würde mir diesen Eingriff nicht zutrauen.
Deine Alternative ist wohl die einzige Möglichkeit. Muss wohl oder übel damit leben bzw. meine Kommentare und / oder die Übergangszeiten der einzelnen Bilder entsprechend anpassen.

 

Nee nee Kardi,
so einfach kommst Du dem VBA nicht davon

Allerdings muss ich mir dazu erst ein Beispiel-Show bauen, für die ich Dich um folgende Info bitte:
Welches Audioformat verwendest Du und welche Optionen "Als Hintergrund" usw. hast Du gesetzt?

Das kriegen wir / kriegst Du schon hin!

Schöne Grüße

 

okay - no need for further infomation!
Hier für die Universal-Version erst einmal ein neuer Code:

Code:

Option Explicit

Dim isPaused As Boolean

Sub TogglePause()
    Dim ssw As SlideShowWindow
    Set ssw = ActivePresentation.SlideShowWindow

    If isPaused = False Then
        ssw.View.Pause
        PauseAllMedia ssw.View
        isPaused = True
    Else
        ssw.View.Resume
        ResumeAllMedia ssw.View
        isPaused = False
    End If
End Sub

Sub PauseAllMedia(v As SlideShowView)
    Dim sl As Slide
    Dim shp As Shape

    Set sl = ActivePresentation.Slides(v.Slide.SlideIndex)

    For Each shp In sl.Shapes
        If shp.Type = msoMedia Then
            On Error Resume Next
            shp.MediaFormat.Pause
            Err.Clear
        End If
    Next shp

    On Error Resume Next
    v.PlayerState = ppMediaPaused
    Err.Clear
End Sub

Sub ResumeAllMedia(v As SlideShowView)
    Dim sl As Slide
    Dim shp As Shape

    Set sl = ActivePresentation.Slides(v.Slide.SlideIndex)

    For Each shp In sl.Shapes
        If shp.Type = msoMedia Then
            On Error Resume Next
            shp.MediaFormat.Play
            Err.Clear
        End If
    Next shp

    On Error Resume Next
    v.PlayerState = ppMediaPlaying
    Err.Clear
End Sub

Dann Step by Step (in etwa fünf Minuten)

1. Speichere Deine Show mit Speichern unter... im Dateiformat .pptm (mit Makros)
2. Öffne mit Alt+F11 den VB-Editor. Mit einem Rechtsklick in das linke obere Fenster VBAProject wird Dir Einfügen angeboten, Du wählst Modul.
3. Öffne das Modul1 per Doppelklick, füge den Code (Cut'nPaste) von oben in das rechte Fenster ein und speichere Deine Datei erneut.

Damit hast die Stop/Start-Funktion schon mal in Deiner Show. Jetzt geht's um den Aufruf:

1. Unter Datei > Optionen > Symbolleite für den Schnellzugriff findest Du zwei Spalten. Wähle im Dropdown oben Makros aus und Du siehst 'DeineShow!TogglePause'. Das fügst Du zu rechts für alle Dokumente(Standard) hinzu.
2. Markiere es und wähle unter Ändern ein geeignetes Icon aus (Vorschlag einfaches farbiges Quadrat) und schiebe das Makro nun in der rechten Spalte mit den Pfeiltasten ganz nach oben, bestätige mit OK und speichere Deine Datei erneut.
3. Suche ganz oben links auf dem Bildschirm Dein Icon und führe den Cursor darüber. Es sollte der Makroname erscheinen.
4. Drücke ALT und unter dem Makro sollte die [1] erscheinen.

Jetzt starte Deine Show (F5) und drücke an beliebiger Stelle erst ALT, dann 1. Ton und eventuelle Animationen sollten stoppen. Du beantwortest die lästigen Zwischenrufe und setzt Deine Show mit einem Mausklick fort.

Getestet mit PPT 2021.

Viel Erfolg!