Bahsettiğiniz talebinize yönelik olarak;
Eklediğiniz örnek uygulamayı (kendi adıma) inceleme imkanım ve zamanım olmaması gerekçesi ile ancak şu bilgiyi paylaşmayı uygun görmekteyim.
Dim videourl
videourl = CurrentProject.Path & "\" & "Videolar\" & "Video1.mp4"
Shell "C:\Program Files\Windows Media Player\wmplayer /play /close " & videourl
ya da
Dim videourl
videourl = Chr(34) & CurrentProject.Path & "\" & "Videolar\" & "Send email using Gmail via Excel VBA.mp4" & Chr(34)
Shell "C:\Program Files\Windows Media Player\wmplayer.exe" & " " & videourl, 1
Yukarıdaki kodları ilgili buton içeriğinde kullanmayı deneyiniz.
Bilginize…iyi çalışmalar,saygılar.