VBA Powerpoint中Windows Media Player ActiveX控件的问题

Question

又是我和我上学的项目。这次我想通过WMP ActiveX使用文件路径将视频插入PowerPoint，因此我画了一个视频，如下：（uiMode设置为"none"）

开始幻灯片放映时，我将所有数据从Excel文件传输到演示文稿，包括视频的路径。然后用Slide85.WMP.uiMode = "invisible"隐藏WMP。

[时间到了，我希望WMP以我绘制的原始尺寸显示并播放链接的视频，所以我使用了以下代码：

Slide85.WMP_TT.uiMode = "none"
Slide85.WMP_TT.URL = "C:\inetpub\wwwroot\TT2.mp4"
Slide85.WMP_TT.Controls.Play

已经通过更改属性选项卡中的设置使视频静音。

然后结果出来像这样：

视频仍会播放，但只能播放声音，这是不可能的，因为我已将控件静音。视频中没有显示可视图像，控件的尺寸也发生了变化。

到目前为止，我无法想到导致此问题的任何原因。请帮助我，我将非常感谢。

Answer 1

如在此Microsoft帮助页面上所述，您必须在代码中设置高度和宽度参数，以便播放器在触发uiMode =“ invisible”时保留空间：Player.uiMode

作为替代方案，您可以像完成一样绘制大小，然后使用VBA通过如下代码将其隐藏或显示在幻灯片上：

Sub HideWMP()
    Dim oSlide As Slide
    Dim oShape As Shape
    For Each oSlide In ActivePresentation.Slides
        For Each oShape In oSlide.Shapes
            If oShape.Type = msoOLEControlObject Then
                oShape.Visible = msoTrue
            End If
        Next oShape
    Next oSlide
End Sub