读书频道 > 系统 > 其他综合 > PPT新视角——VBA应用技术
管理媒体标签
2013-05-25 09:01:34     我来说两句 
收藏    我要投稿   

本文所属图书 > PPT新视角——VBA应用技术

本书内容由浅入深,难易结合,理论与实例交替,规范与突破并存,一步步引导读者入门、提高、直至专业。全书共分为4部分:第1部分引导读者入门,熟悉VBA开发环境,掌握VBA编程元素和基本概念以及代码的调试等。第...  立即去当当网订购

可以添加书签来指示视频或音频剪辑中关注的时间点。使用书签可触发动画或跳转至视频中的特定位置。

使用MediaBookmarks集合可返回或添加当前活动媒体的书签。下面的代码演示了添加和删除书签。

'媒体书签

Sub SetMediaBookmark()

    Dim videoFile As String

    Dim i As Integer

videoFile = ActivePresentation.Path & "\bee.mpg"

    With ActivePresentation.Slides(1).Shapes

        With .AddMediaObject2(videoFile, False, True, 100, 100)

            '命名

            .Name = "testPlayer"

            With .MediaFormat

                ' 有书签删除它

                For i = .MediaBookmarks.Count To 1 Step -1

                    .MediaBookmarks(i).Delete

                Next

                ' 分别在1、3、5秒处创建书签

                .MediaBookmarks.Add 1000, "p1"

                .MediaBookmarks.Add 3000, "p2"

                .MediaBookmarks.Add 5000, "p3"

            End With

        End With

    End With

End Sub

 

点击复制链接 与好友分享!回本站首页
分享到: 更多
您对本文章有什么意见或着疑问吗?请到论坛讨论您的关注和建议是我们前行的参考和动力  
上一篇:剪辑媒体
下一篇:使用媒体播放控件
相关文章
图文推荐
2.7.12 使用仿真器查
2.7.11 栈和寄存器组
2.7.8 出栈
2.7.7 压栈
排行
热门
文章
下载
读书

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训
版权所有: 红黑联盟--致力于做最好的IT技术学习网站