读书频道 > 网站 > 网页设计 > PPT新视角——VBA应用技术
使用媒体播放控件
13-05-25    奋斗的小年轻
收藏    我要投稿   

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

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

媒体控件由Player对象控制,此对象用于控制媒体的播放状态,包含了如图10-39所示的属性和方法。
 

10-39

'开始播放

Sub StartPlay()

    ' 返回媒体播放控件

    Dim id As Long, mPlayer As Player

id = ActivePresentation.Slides(1).Shapes("testPlayer").id

    Set mPlayer = ActiveWindow.View.Player(id)

    mPlayer.Play

End Sub

'停止播放

Sub StopPlay()

    ' 返回媒体播放控件

    Dim id As Long, mPlayer As Player

id = ActivePresentation.Slides(1).Shapes("testPlayer").id

    Set mPlayer = ActiveWindow.View.Player(id)

    mPlayer.Stop

End Sub

'暂停播放

Sub PausePlay()

    ' 返回媒体播放控件

    Dim id As Long, mPlayer As Player

id = ActivePresentation.Slides(1).Shapes("testPlayer").id

    Set mPlayer = ActiveWindow.View.Player(id)

    mPlayer.Pause

End Sub

Sub GotoNextBk()

    ' 返回媒体播放控件

    Dim id As Long, mPlayer As Player

id = ActivePresentation.Slides(1).Shapes("testPlayer").id

    Set mPlayer = ActiveWindow.View.Player(id)

    mPlayer.GoToNextBookmark

End Sub

Sub GotopreBk()

    ' 返回媒体播放控件

    Dim id As Long, mPlayer As Player

id = ActivePresentation.Slides(1).Shapes("testPlayer").id

    Set mPlayer = ActiveWindow.View.Player(id)

    mPlayer.GoToPreviousBookmark

End Sub

Sub GotoPos()

    ' 返回媒体播放控件

    Dim id As Long, mPlayer As Player

id = ActivePresentation.Slides(1).Shapes("testPlayer").id

    Set mPlayer = ActiveWindow.View.Player(id)

    mPlayer.CurrentPosition = 7000

End Sub

点击复制链接 与好友分享!回本站首页
分享到: 更多
您对本文章有什么意见或着疑问吗?请到论坛讨论您的关注和建议是我们前行的参考和动力  
上一篇:1.3 功能
下一篇:1.5 小结
相关文章
图文推荐
JavaScript网页动画设
1.9 响应式
1.8 登陆页式
1.7 主题式
排行
热门
文章
下载
读书

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