Verwandte Themen

SophSoph111
20.05.2017, 20:04
Video in einer Power Point Präsi am Smartboard zeigen?

Guten Abend Leute,

Ich hoffe, dass mir hier einer mit meinem Problem weiterhelfen kann, ich habe schon super viele Leute gefragt aber keiner konnte mir bisher helfen...

Folgendes:

Am Dienstag muss ich eine superwichtige Präsi in der Uni halten und habe auf einer Folie ein Video integriert. Auf meinem Laptop spielt das Video in der Präsi auch perfekt ab, ich habe es so eingestellt, dass sobald ich auf die besagte Folie gehe, das Video automatisch abspielt. Gerade dieses automatische Abspielen ist auch super wichtig für die Präsi für sich.

Bisher hatte ich allerdings immer das Problem, dass bei meinen Präsis die Videos an meinem Laptop perfekt funktionierten, am Smartboard dann aber nur ein schwarzer Kasten zu sehen war und das Video (auch trotz Daraufklickens) nicht abgespielt wurde. Bisher habe ich daher immer nich den Youtube link auf die Folie gepackt und habe relevante Videos bisher immer über Youtube gezeigt. Das ist bei diesem besagten Video aber nicht möglich, weil ich es selbst zugeschnitten habe und es also keinen Youtube link gibt. Es ist auch wie gesagt wichtig, dass das Video spontan, also ohne klicken, abspielt.

Ich habe schon zig Freunde gefragt woran es liegen könnte, dass die Videos meiner Präsis nicht am smartboard abspielen. Ich habe das Video als mp4 Datei abgespeichert und habe Powerpoint 2007 (in der Uni haben wir Powerpoint 2010 was laut einem Freund eigentlich perfekt kompatibel sein müsste).

Ein anderer Freund hatte mir auch geraten, das zugeschnittene Video auf meinem USB Stick abzuspeichern, auf dem ich auch die Präs abgespeichert habe und dann die Präsi über den USB Stick zu öffnen, die Folie neu zu kreieren und das Video dann vom USB Stick einzufügen. Er meinte, es könnte sein, dass meine Videos nicht abspielen, weil sie nur auf der Speicherplatte meines Laptops, nicht aber auf dem USB Stick abgelegt sind und dass es klappt wenn ich das Video auf dem USB Stick ablege und dann in die Präsi einbaue. Als ich das aber gestern Abend in der Uni am smartboard ausprobiert habe, hat es wieder nicht geklappt...

Hier also meine Frage: Hat jemand irgendeine Ahnung wie ich es so hinbiegen kann, dass das Video am Dienstag auf dem smartboard abspielt, möglichst ohne darauf klicken zu müssen?

Vielen Dank schon mal im Voraus für jegliche Hilfe!

Alles Liebe,

Sophie

Video, Microsoft PowerPoint, Technik, Präsentation
1 Antwort
domaei
23.03.2017, 21:24
Wo ist der Fehler im Code (VBA PowerPoint)?

Hallo meine lieben,

ich benötige wieder einmal eure Hilfe. Ich habe im Internet einen VBA Code gefunden der es ermöglich in einer PowerPoint Präsentation die aktuelle Uhrzeit mit Sekunden anzuzeigen. Da der Code leider nicht 64bit tauglich war hab ich ein wenig rumgetüftelt und siehe da, die Uhr selbst funktioniert schon mal. Aber leider bekomme ich ständig eine Fehlermeldung sobald die Folie gewechselt wird. "slides (unknown member): bad argument type. Excectet Collection index (string or integer). Ich verwende Windows 10 und Office 2016.

Würde mich rießig freuen wenn mir hier jemand weiterhelfen kann.

Vielen Dank im Voraus.

Leider ist der Code zu lange daher in 2 Teile.

Erster Teil:

Option Explicit

'API Declarations
Declare PtrSafe Function SetTimer Lib "user32" _
                            (ByVal hwnd As LongPtr, _
                             ByVal nIDEvent As LongPtr, _
                             ByVal uElapse As LongPtr, _
                             ByVal lpTimerFunc As LongPtr) As LongLong

Declare PtrSafe Function KillTimer Lib "user32" _
                            (ByVal hwnd As LongPtr, _
                             ByVal nIDEvent As LongPtr) As LongLong

' Public Variables
Public ClockTimerID As LongLong
Public prevSlideIdx As LongLong

Const TIMEFORMATSTRING As String = "dd.mm.yyyy - HH:mm:ss - KW :ww" 'show seconds with: "HH:mm:ss""

Dim pptEventObject As New Klasse1 'AppClassModule
'DIESE METHODE EINMALIG UNTER MAKROS STARTEN, DAMIT DAS EVENTHANDLING FUNKTIONIERT!
Sub InitializeApp()
    Set pptEventObject.App = Application
End Sub


Sub StartClockTimer()
    On Error GoTo ErrorOccurred
    
    'first make sure its not already running
    ClockTimerID = KillTimer(0, ClockTimerID)
    ClockTimerID = SetTimer(0, 0, 1000, AddressOf TimerProcClock)
    If ClockTimerID = 0 Then
        MsgBox "Unable to create the clock timer", vbCritical + vbOKOnly, "Error"
        Exit Sub
    End If

    Exit Sub
ErrorOccurred:
    MsgBox Err.Description
End Sub


Sub StopClockTimer()
    On Error GoTo ErrorOccurred
    
    If Not ClockTimerID = 0 Then
        ClockTimerID = KillTimer(0, ClockTimerID)
    End If

    Exit Sub
ErrorOccurred:
    MsgBox Err.Description
End Sub


' The defined routine gets called every nnnn milliseconds.
Sub TimerProcClock(ByVal hwnd As LongPtr, _
                    ByVal uMsg As LongPtr, _
                    ByVal idEvent As LongPtr, _
                    ByVal dwTime As LongPtr)
On Error GoTo ErrHandler
    
    If Not ActiveSlide Is Nothing Then
        ActiveSlide.Shapes("PointaixClockLabel").TextFrame.TextRange.Text = WeekdayName(Weekday((Now()))) + " " + Format(Now(), TIMEFORMATSTRING)
    End If

    Exit Sub
ErrHandler:
End Sub
Microsoft PowerPoint, programmieren, Makro, VBA
2 Antworten

Meistgelesene Beiträge zum Thema Microsoft PowerPoint
Mehr meistgelesene Fragen zu Microsoft PowerPoint