分享并求完善 ppt随心所欲朗读文本之VBA代码

weiyingde · 发表于 2017-1-1 21:57

再上一个，播放一个动画后随即朗读改动花的文本的案例。

LWQHLWQH · 发表于 2017-1-2 10:01

楼主完善了代码，恭喜！

cg372101 · 发表于 2018-9-29 12:09

请教老师：能否实现边播放幻灯片动画边朗读这“张”幻灯片下备注窗格中的文本？
比如说某个ppt文件有100张幻灯片，当播放到第N张幻灯片的时候，动画继续（播放本张幻灯片的动画内容），同时朗读这张幻灯片底下备注窗格中的内容。

weiyingde · 发表于 2019-4-2 20:46

有功夫研究一下。若有得，当分享。

电鳗01 · 发表于 2019-4-10 16:53

感谢楼主分享

电鳗01 · 发表于 2019-4-10 17:03

无法运行，调试时 Set yy = CreateObject("sapi.spvoice")黄色显示

weiyingde · 发表于 2019-4-15 15:21

电鳗01 发表于 2019-4-10 17:03
无法运行，调试时 Set yy = CreateObject("sapi.spvoice")黄色显示

是不是你的系统有问题，导致语音系统不能运行？

电鳗01 · 发表于 2019-4-25 08:40

weiyingde 发表于 2019-4-15 15:21
是不是你的系统有问题，导致语音系统不能运行？

有可能，在别的电脑能正常朗读，谢谢

qishimj88 · 发表于 2019-10-20 14:50

感谢楼主分享

lss001 · 发表于 2020-3-15 20:25

本帖最后由 lss001 于 2020-3-15 21:40 编辑

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal s As Long)
Sub 逐屏朗读()
Set yy = CreateObject("sapi.spvoice")
With ActivePresentation.SlideShowSettings
      .ShowType = ppShowTypeSpeaker
      .ShowWithNarration = msoTrue
      .ShowWithAnimation = msoTrue
      .RangeType = ppShowAll
      .AdvanceMode = ppSlideShowUseSlideTimings
      .PointerColor.SchemeColor = ppForeground
      .Run
End With
   For i = 1 To ActivePresentation.Slides.Count
      Sleep 1000 ' 切换幻灯片需要时间
      Set myDocument = ActivePresentation.Slides(i)
      If i > 1 Then SlideShowWindows(Index:=1).View.Next
      For Each s In myDocument.Shapes
         If s.HasTextFrame Then
            yy.Speak s.TextFrame.TextRange.Text
            SlideShowWindows(Index:=1).View.Next
         End If
      Next
Next
SlideShowWindows(Index:=1).View.Exit '放映完自动退出
End Sub

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

[分享] 分享并求完善 ppt随心所欲朗读文本之VBA代码

评分