Office: Videos in Userform abspielen

Hallo falls das jemand hier liest - eine frage bitte, ich habe mir jetzt auch solch eine Arbeitsmappe erstellt wo ich in der Uferform ein Video laufen lassen kann .. es ist etwas ungewohnt in Excel aber es ist erfrischend.
Ich habe eine frage wenn ich ein Video per Zufall aus einen Ordner am Pc auswählen möchte, wie sollte ich da vorgehen.
Sollte ich in sagen wir halt mal A1 einen Zufallsbereich eintragen der von 1-100 Läuft die Videos sind alles m4 datein ich habe sie einfach schlichtweg alle nummeriert.
Oder kennt jemand einen code für VBA der zufällig einen Nr generiert 1-100 und dann das Video mit der zufälligen zahl zieht und ladet.
Hat jemand einen Idee dazu , würde mich freuen danke voraus.

 

Private Sub UserForm_Initialize()
Dim objMediaPlayer As WindowsMediaPlayer
Set objMediaPlayer = Controls.Add(BstrProgID:="WMPlayer.OCX.7", Name:=WMPLAYER_NAME)
Set mobjMediaPlayerClass = New clsMediaPlayer
With mobjMediaPlayerClass
Set .MediaPlayer = objMediaPlayer
Set .UserForm = Me
.MediaPlayer.URL = "C:UsersMANUELLA19Desktoptestvideo78.mp4"
.MediaPlayer.uiMode = "none" 'alle Controls ausblenden
.MediaPlayer.Enabled = False
.MediaPlayer.stretchToFit = True
End With
Set objMediaPlayer = Nothing
End Sub

ICH HAB MIR DEN Code abgeändert der hier zu finden war, ich würde wie gesagt gerne ein Video per Zufall laden.

Lg Manu

 

Hallo Manu,

sich an einen bereits geschlossenen Thread anzuhängen, sprich KAPERN, und sich diesen zu eigen machen, ist nicht hilfreich. Mache deinen eigenen Thread mit deiner Problemstellung auf und verweise ggf. auf den bereits geschlossenen Thread.

Ulrich

 

ok danke hast recht.