要在两个"灵感滑块"幻灯片之间保持相同的视频继续播放/循环,可以使用PowerPoint VBA编程来实现。以下是代码示例:
首先,打开PowerPoint并按下ALT + F11打开VBA编辑器。在左侧的项目资源管理器中,双击要使用的幻灯片,然后在右侧的代码窗口中粘贴以下代码:
Option Explicit
Dim WithEvents sld As SlideShowWindow
Dim videoShape As Shape
Dim videoPath As String
Private Sub sld_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
'当幻灯片转到下一张时触发
'检查当前幻灯片是否为"灵感滑块"幻灯片
If Wn.View.Slide.Shapes("灵感滑块") <> "" Then
'获取"灵感滑块"幻灯片中的视频形状
Set videoShape = Wn.View.Slide.Shapes("视频")
'保存视频路径
videoPath = videoShape.LinkFormat.SourceFullName
'播放视频
videoShape.Video.Play
Else
'检查当前幻灯片是否为上一个"灵感滑块"幻灯片
If Wn.View.Slide.Shapes("灵感滑块") = "" And videoShape <> "" Then
'将视频形状的源路径设置为上一个视频的路径
videoShape.LinkFormat.SourceFullName = videoPath
'播放视频
videoShape.Video.Play
End If
End If
End Sub
Private Sub sld_SlideShowEnd(ByVal Wn As SlideShowWindow)
'当幻灯片放映结束时触发
'重置视频形状和视频路径
Set videoShape = Nothing
videoPath = ""
End Sub
请确保将代码中的"灵感滑块"和"视频"替换为实际幻灯片中的形状名称和视频名称。
保存并关闭VBA编辑器,然后运行幻灯片放映。当幻灯片转到第一个"灵感滑块"幻灯片时,视频将开始播放。然后,当幻灯片转到下一个非"灵感滑块"幻灯片时,视频将停止。然后,当幻灯片再次转到下一个"灵感滑块"幻灯片时,视频将继续播放。
请注意,此代码仅适用于PowerPoint 2010及更高版本。在PowerPoint 2007及更早版本中,您需要使用不同的事件来实现相同的功能。