庆祝国庆，做了一个通用ppt歌曲歌词同步（MTV）

ux2010

庆祝国庆！
完整测试下载地址：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

gfdgesew

第一个捧场！

谢谢张兄又一作品的问世，先支持再测试！

user_vvquaghy

提示“此演示文稿中的一些控件无法激活，这些控件可能未在此计算机中注册”，无法测试效果！

lucyzhang

打不开

lyboy

节日快乐，感谢测试。
可能是因为计算机中缺少控件。 请下载控件试试。
需要启用 宏 设置宏的安全性为中或低
在windowsxp和office2003测试通过

kaixuan623

谢谢提供，分享了

user_ngtxfauf

我的机子能通过
我来试试改成加载宏

user_crwbvrru

谢谢chuhaiou 兄，盼望早日写好。另外做了两个改进。
2012-10-3
单曲放完之后可以再次点击播放
开头不再出现最后一句歌词
还请chuhaiou 兄考虑能否加载某个文件夹下面的图片。我也自己试试。然后有的歌词不规范，也不能播放。mp3文件有的也不能直接使用。

李传峰

这个程序的最大的亮点是PPT直接加载了歌词文件，并在PPT停止放映时PPT中看不到歌词文字。
但也有不尽人意的地方法：限定了音频文件的后缀。以致于其它格式的音频文件不能播放；只能在第一张幻灯片中使用。要是能继续改进更好。
本人水平有限，不知道Slide1.ListBox1在哪里，无法改成加载宏。

user_zpifs

谢谢指点，有时间我尝试一下，看看能不能改进更好。