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每日頭條，我们将持续为您更新最新资讯!

查看全部