Excel可以添加一些插件,如視頻播放也不在話下,最方便的選擇就是WindowsMediaPlayer播放器。
當然了也可以選擇其它插件,隻要系統安裝支持,完全沒問題。
但是,做過多次調試,對于視頻播放支持還是有點問題,會出現卡死現象,具體什麼原因,也沒有找到。
不過,正常操作的情況下,還是可以完整觀看視頻,這個可以放心。
可能是我折騰太多,電腦罷工了,所以,做了一個小小的嘗試。
示例
就一個按鈕和一個視頻播放器,很簡單的沒話說。
接下來要播放什麼視頻,就從這個按鈕開始吧,單擊之後會彈出選擇框,選擇一個本地視頻,網絡視頻也可以,隻要有地址即可。
想要用到這個功能,首先必須安裝Windows Media Player插件,前提條件不能忽略.
安裝方法
打開VBE編輯器,工具箱面闆右鍵,打開附加控件,選擇Windows Media Player确定。
如果沒有,那就是操作系統或者Excel軟件安裝不完整,重新安裝一下即可。
代碼
實現這個功能,其實代碼還是很少的。
當然了,也不是代碼少就說明簡單,恰恰說明有點難度。
話說回來,WIndows Player 播放器實在說不上有多好,大概用的人也少之又少。
所以,這個例子拿來學習一下即可。
網上有更好的播放器插件,有興趣可以深入研究一下。
按鈕代碼
Private Sub CommandButton1_Click() Dim FilesUrl As String Dim OpenFiles As Object Set OpenFiles = Application.FileDialog(msoFileDialogFilePicker) With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = ThisWorkbook.Path & "\mp4" .Filters.Clear .Filters.Add "音樂文件", "*.mp3;*.mp4;*.mov" .Title = "音樂文件" If .Show = -1 Then FilesUrl = .SelectedItems(1) End If End With Me.WindowsMediaPlayer1.URL = FilesUrl End Sub
歡迎關注、收藏
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!