ux2010 发表于 2016-4-12 13:28:58

庆祝国庆,做了一个通用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

gfdgesew 发表于 2016-4-12 14:36:46

第一个捧场!

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

user_vvquaghy 发表于 2016-4-12 14:38:29

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

lucyzhang 发表于 2016-4-12 14:41:55

打不开

lyboy 发表于 2016-4-12 14:59:57

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

kaixuan623 发表于 2016-4-12 15:02:09

谢谢提供,分享了

user_ngtxfauf 发表于 2016-4-12 15:10:19

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

user_crwbvrru 发表于 2016-4-12 15:27:54

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

李传峰 发表于 2016-4-12 15:30:50

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

user_zpifs 发表于 2016-4-12 15:41:21

谢谢指点,有时间我尝试一下,看看能不能改进更好。
页: [1] 2 3
查看完整版本: 庆祝国庆,做了一个通用ppt歌曲歌词同步(MTV)