Excel之VBA常用功能应用篇： 视频播放器的一些基本操作方法

视频播放在一些工作当中不可避免地会遇到，如何利用工作表把视频播放出来呢，也许是个不小的挑战，实际上也没多么复杂，但是要有一定的基础知识来进行学习。

本节介绍在VBA中插入WindowsMediaPlay的一些基本内容。

如下图所示，可能播放一些视频在窗体上显示，如果是一些视频记录就显得十分有用了，不仅可以看数据，而且可以看到一些视频内容。

接下来，有一些可能陌生的代码，但不会太难理解。

首先要打开VBE编辑器（在Excel中按Alt+F11），新建一个窗体，然后在附加控件里选择Windows Media Plaer控件。

如果没有，就不能添加播放器。

完成上述操作，接下来就可以随心所欲编辑控件属性了。

和创建其它控件一下，拖一个WindowsMediaPlay到窗体上，调整适合大小。

这里主要有一些属性要参考一下：

窗体代码：

Private Sub UserForm_Initialize()

With Me.WindowsMediaPlayer1

.Enabled = True

.fullScreen = False '全屏显示

.enableContextMenu = True '启用右键

.settings.autoStart = False '关闭自动播放

.URL ="D:\VCD\DJ.Mp4"'视频地址

.Top = 10

.Left = 20

.stretchToFit = True

.Width = Me.Width - 50

.Height = Me.Height - 50

.settings.volume = 50

.settings.setMode "loop", True '循环播放

End With

End Sub

重点属性：

• .URL 视频地址，可以是本地视频，也可以是网络视频

• .settings.autoStart=True 设置自动播放

• .settings.setMode "loop", True '循环播放

• .settings.setMode "shuffle", False '顺序播放

• .settings.setMode "shuffle", True '随机

更多设置可以参考上面属性表，视频播放是一个很有用的功能，如加以利用，可以使用制作的应用更加生动地体现数据内容。

不过，真得做到这一点，是十分困难的，希望对你有帮助。