保持相同的视频以在两个“灵感滑块”幻灯片之间继续播放/循环。
创始人
2024-11-22 00:01:58
0

要在两个"灵感滑块"幻灯片之间保持相同的视频继续播放/循环,可以使用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及更早版本中,您需要使用不同的事件来实现相同的功能。

相关内容

热门资讯

前端-session、jwt 目录:   (1)session (2&#x...
linux入门---制作进度条 了解缓冲区 我们首先来看看下面的操作: 我们首先创建了一个文件并在这个文件里面添加了...
关于测试,我发现了哪些新大陆 关于测试 平常也只是听说过一些关于测试的术语,但并没有使用过测试工具。偶然看到编程老师...
前缀和与对数器与二分法 1. 前缀和 假设有一个数组,我们想大量频繁的去访问L到R这个区间的和,...
nodejs:本地安装nvm实... 一、背景-使用不同版本node的原因 vue3+ts、nuxt3版本,node...
JAVA集合知识整理 Java集合知识整理 HashMap相关 HashMap的底层数据结构:jdk1.8之...
无刷直流电机介绍及单片机控制实... 无刷直流电机介绍及单片机控制实例前言基本概念优势与劣势使用寿命基本结构使用单片机控制实例电子调速器&...
fwdiary(2) dp2 1.传纸条  AcWing 275. 传纸条 - AcWing 走两条路,走一条最大的...
常用的DOS命令 常用的DOS命令 DOS(Disk Operating System,磁...
<C++> 类和对象(下) 1.const成员函数将const修饰的“成员函数”称之为const成员函数,cons...