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

wjhere · 发表于 2012-10-1 21:18

本帖最后由 wjhere 于 2012-10-6 19:42 编辑

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

tangqingfu · 发表于 2012-10-1 21:30

第一个捧场！{:soso_e142:}
谢谢张兄又一作品的问世，先支持再测试！

tangqingfu · 发表于 2012-10-1 21:37

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

杨小军 · 发表于 2012-10-1 21:51

打不开

wjhere · 发表于 2012-10-1 22:14

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

linchangh · 发表于 2012-10-4 19:12

wjhere 发表于 2012-10-1 22:14
节日快乐，感谢测试。
可能是因为计算机中缺少控件。请下载控件试试。
需要启用宏设置宏的安全性为中或 ...

谢谢提供，分享了

chuhaiou · 发表于 2012-10-4 22:30

本帖最后由 chuhaiou 于 2012-10-4 22:32 编辑

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

wjhere · 发表于 2012-10-5 08:52

谢谢chuhaiou 兄，盼望早日写好。另外做了两个改进。
2012-10-3
单曲放完之后可以再次点击播放
开头不再出现最后一句歌词

还请chuhaiou 兄考虑能否加载某个文件夹下面的图片。我也自己试试。然后有的歌词不规范，也不能播放。mp3文件有的也不能直接使用。

chuhaiou · 发表于 2012-10-6 17:41

wjhere 发表于 2012-10-5 08:52
谢谢chuhaiou 兄，盼望早日写好。另外做了两个改进。
2012-10-3
单曲放完之后可以再次点击播放

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

wjhere · 发表于 2012-10-6 19:41

chuhaiou 发表于 2012-10-6 17:41
这个程序的最大的亮点是PPT直接加载了歌词文件，并在PPT停止放映时PPT中看不到歌词文字。
但也有不尽人意 ...

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

		自动登录	找回密码
密码			免费注册

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