新人报到分享==我ppt中最常用的宏

qweasd6 · 发表于 2011-1-3 15:09

Sub yuyn()
Dim yuy, yyyq
Set yyyq = CreateObject("sapi.spvoice")
yuy = "随着计算机的网络化和全球化，人们日常生活进入了高速信息化时代。信息交流日益繁复也日益方便；网站网页在信息交流方面的作用尤其显著。"
yyyq.Speak yuy
yuy = "好的网页既容易吸引眼球，备受关注，又是一种美的享受，有良好的广告效应。"
yyyq.Speak yuy
yuy = "网页是网站制作的基础，我们对网页也要有所了解，有所认识。"
yyyq.Speak yuy
End Sub

murong0102 · 发表于 2011-1-3 15:40

看不懂

Elent · 发表于 2011-1-4 22:51

哈哈哈，刚才测试了一下，原来是语音朗读，不错！

小羊爱主 · 发表于 2012-11-5 11:58

{:soso_e100:}很好玩，谢谢分享。

福哥 · 发表于 2012-11-6 19:05

不行啊
能说的详细点吗？

wjhere · 发表于 2012-11-7 17:24

可能需要设置语音，如果要朗读中文，需要设置中文语音引擎，朗读英文需要调用英文朗读引擎。

xiaomei160 · 发表于 2012-11-7 21:59

不错啊，刚刚试了下不错可以借用

chuhaiou · 发表于 2012-11-7 23:37

占内存太大

yxbxxxx · 发表于 2012-11-28 17:10

小羊爱主发表于 2012-11-5 11:58
很好玩，谢谢分享。

他哪个是怎么加到宏里的？？你教我呗

小羊爱主 · 发表于 2012-12-10 17:43

本帖最后由小羊爱主于 2012-12-10 17:45 编辑

可以这样加。
1、在excel中，按Alt+F11，进入VBE环境。
2、在左侧的窗口里，双击 ThisWorkbook。
3、在右边的窗口里，把楼主的代码贴上。保存。
4、回到Excel，按Alt+F8，找到这条宏，点击“执行”。就可以听到了。

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

新人报到分享==我ppt中最常用的宏

最新热点 /1