ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3329|回复: 8

如何在powerpoint中控制视频?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-1-8 17:47 | 显示全部楼层 |阅读模式
Private Sub CommandButton1_Click() Slide13.WindowsMediaPlayer1.close End Sub 可以停止,但如何重新打开视频播放?

TA的精华主题

TA的得分主题

发表于 2004-1-8 18:39 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
随心所欲控制PowerPoint97中的背景音乐 成都市大弯中学 郭 昕 广汉市广汉中学 肖红梅 用PowerPoint制作课件,操作简单易学,为大多数中学教师所喜欢。但如何在PowerPoint课件中使用背景音乐,特别是使用可以随意控制的背景音乐则就不那么容易了。 要为PowerPoint课件添加可以随意控制的背景音乐需用到Office提供的Activex控件,需要一定的编程基础。 首先我们来学习添加控件及使用控件 1.向幻灯片中添加控件:先单击菜单“视图\工具箱\控件工具箱”,打开控件工具箱。控件工具箱中为我们提供了几种常用控件(将鼠标停放在控件上会自动显示控件名称),单击控件后在幻灯片中按着鼠标左键拖画即可添加该控件.除这几种常用控件外,PowerPoint还提供了很多“扩展”控件,只要单击控件工具箱右下角按钮即可选择其它控件。 2.设置控件属性:选中控件后单击鼠标右键在快捷菜单中选中“属性”即可打开该控件的“属性面板”。在“属性面板”中允许我们修改控件的属性。 3.为控件添加代码:双击控件即可打开代码窗口,在代码窗口中可以为控件添加任意可用的代码。 在认识了控件后,现在我们就开始来装扮我们的课件吧。 1.首先制作不带背景音乐的课件,并保存为“课件.ppt”,然后新建一文件并确保其只有一张幻灯片。通过菜单“插入\对象”将“课件.ppt”插入到幻灯片中,并在“自定义动画\播放设置”选中“放映”。 2.添加控件并设置控件属性: 控件 控件属性 控件功能说明 名称 其它属性 命令按钮 MusicOnOff Caption:关闭音乐 背景音乐的控制按钮 Windows Media Player Music FileName:d:\music.mid PlayCount:0 Volume:-600 播放背景音乐 设置循环播放 滚动条 ScrollBar Max:10;Min:0Value:6 调节音量高低 标签 Label Caption: 音量高低 标注滚动条功能 3.为控件添加代码: '单击按钮时暂停或播放音乐 Private Sub MusicOnOff_Click() If MusicOnOff.Caption = "关闭音乐" Then Music.Pause '音乐暂停 MusicOnOff.Caption = "播放音乐" Else Music.Play '继续播放音乐 MusicOnOff.Caption = "关闭音乐" End If End Sub '当滚动条位置改变时音量的高低也随之改变 Private Sub ScrollBar_Change() Music.Volume = 150 * (ScrollBar.Value - 10) End Sub 经过上面的工作后,现只需将Windows Media Player控件拖出幻灯片显示区外即可。若需为课件添加背景音乐随意更换功能可使用“对话框控件” (CommonDialog),这里不再赘述。 详细文章见http://www.dawan.net/school/jyz/huaxue/jxyj/

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-1-9 11:31 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-8-27 22:20 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-8-29 13:21 | 显示全部楼层
哎呀,这个太简单了。插入所需要的视频控件就行了。比如:

如何在powerpoint中控制视频?

如何在powerpoint中控制视频?

TA的精华主题

TA的得分主题

发表于 2004-8-29 13:22 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
另外,假如是XP或者2003的话,还可以用触发器来做。

TA的精华主题

TA的得分主题

发表于 2004-8-31 21:31 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-8-31 21:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-24 09:30 | 显示全部楼层
可惜,它使用的路径是绝对路径,移植性不好.不知谁有办法.
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-26 12:39 , Processed in 0.057695 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表