庆祝国庆,做了一个通用ppt歌曲歌词同步(MTV)
庆祝国庆!完整测试下载地址:http://pan.baidu.com/share/link?shareid=67138&uk=84150923
欢迎大家改进。
早就想写一个ppt演示歌词的东西。因为写过一个Lrc点读精灵,所以就想移植过来。终于在国庆节有时间写成。
ppt的学习断断续续的,以前也写过一些东西,都是自己的灵感所致。把自己的一些想法实现出来真的很有成就感。虽然偏远的农村还是没有进入多媒体教学时代。真心希望现代化的设备能够改变一些。
没有很多的专业知识,摸索着实现着自己的一点想法,把个人的智慧凝聚在一行行的代码中,给别人带来乐趣和方便,共同学习促进,也是很快乐的一件事情呀!
这个东西有着开放性,可以打开别的歌曲,要求歌词和歌曲在同一个文件夹下面,并且前面的名字相同(除了后缀名)。因为生搬硬套,代码难免冗余难看,
以后有时间再改进吧。
祝大家节日快乐!
播放需要mp3和同名的lrc文件支持,下面三种任选一种
1、最简单的准备
凤凰传奇-最炫民族风.mp3
凤凰传奇-最炫民族风.lrc
和ppt在同一个文件夹下面
2、修改代码,在ppt同一文件夹下准备mp3和lrc
Sub OnSlideShowPageChange() '开始播放自动启动的宏
OpenLrfile ActivePresentation.Path & "凤凰传奇-最炫民族风.lrc"
End Sub
3、其他mp3和同名的lrc歌词文件在同一个文件夹下,放映后打开
wjhere@126.com 第一个捧场!
谢谢张兄又一作品的问世,先支持再测试! 提示“此演示文稿中的一些控件无法激活,这些控件可能未在此计算机中注册”,无法测试效果! 打不开
节日快乐,感谢测试。
可能是因为计算机中缺少控件。 请下载控件试试。
需要启用 宏 设置宏的安全性为中或低
在windowsxp和office2003测试通过 谢谢提供,分享了 我的机子能通过
我来试试改成加载宏 谢谢chuhaiou 兄,盼望早日写好。另外做了两个改进。
2012-10-3
单曲放完之后可以再次点击播放
开头不再出现最后一句歌词
还请chuhaiou 兄考虑能否加载某个文件夹下面的图片。我也自己试试。然后有的歌词不规范,也不能播放。mp3文件有的也不能直接使用。 这个程序的最大的亮点是PPT直接加载了歌词文件,并在PPT停止放映时PPT中看不到歌词文字。
但也有不尽人意的地方法:限定了音频文件的后缀。以致于其它格式的音频文件不能播放;只能在第一张幻灯片中使用。要是能继续改进更好。
本人水平有限,不知道Slide1.ListBox1在哪里,无法改成加载宏。 谢谢指点,有时间我尝试一下,看看能不能改进更好。