我在幻灯片中嵌入了Windows Media Player控件,因此它的大小和形状与幻灯片相同。幻灯片包含其他形状,当我显示幻灯片时,视频可以完美播放,但是我希望其他形状位于嵌入式控件的顶部。
这是大型演示文稿的一小部分,我必须使用VBA(而不是简单地运行幻灯片放映)来控制,因为我必须动态地更改某些幻灯片的内容。带有嵌入式视频控件的幻灯片仅在某些情况下显示。
我使用嵌入式WMP控件而不是嵌入式视频或视频的嵌入式链接,因为嵌入式WMP控件是我发现的唯一一种不会导致视频冻结的方法(我尝试了各种视频格式,压缩,关闭硬件加速等,都无济于事。我使用网络上许多地方描述的方法嵌入了控件,其中包括:https://smallbusiness.chron.com/insert-media-player-object-powerpoint-autostart-42163.html
我确保WMP控件位于选择窗格中对象集的底部,甚至尝试使用ZOrder(即使我知道它在这里不起作用)。
这是显示问题的单幻灯片演示文稿的代码的最少说明:
Sub RunShowBySlide()
Dim prn As Presentation
Dim ssw As SlideShowWindow
Dim shp As Shape
Dim iSlide As Long
Set prn = ActivePresentation
prn.SlideShowSettings.Run
Set ssw = SlideShowWindows(1)
Set shp = prn.Slides(1).Shapes("WindowsMediaPlayer1")
ssw.View.GotoSlide 1
End Sub
幻灯片放映开始时,WMP控件在底部持续一秒钟,然后在顶部,然后在底部,然后再次在顶部,并保持原样,然后开始播放。
当前已将视频设置为自动播放,但是如果我将其关闭,则它只会执行上述底部/顶部舞蹈的一半,然后仍然会位于顶部。
请帮助!
编辑:我只是想将幻灯片作为实际的幻灯片放映机在信息亭模式下尝试,并且存在相同的问题(即,您几乎可以忽略我问题的大部分VBA部分!)。我如何将这个嵌入式WMP控件放在后面?
编辑2:这很奇怪:如果我保存并关闭PowerPoint文件,然后再次打开它,则WMP控件现在位于顶部!发生了什么事?