在线ppt演示 相关技术分享

atstudy007

最近一个项目关于远程教学的，里面涉及到视频和ppt的在线播放：
用到的技术有如下:
    视频流媒体技术，ppt导出网页，图片和演示时间（以控制视频的播放点），当然还有其他的，如果你懂js，asp，php，流媒体，有兴趣的话可以联系我。

  正文：准备阶段，演讲者坐到镜头前，点开旁边的笔记本上的PPT，同时打开幻灯片即时功能，开始讲解和演示PPT，注意一定要按照你讲话的内容来点击PPT,....演讲完毕，注意保存PPT。
  处理：打开PPT文件，导出为html
              点击宏，新建宏：运行如下代码：
           Sub macrox()
                      Dim Nx     As Shape
                      Dim X     As Long
                      For X = 1 To ActivePresentation.Slides.Count
                        For Each Nx In ActivePresentation.Slides(X).Shapes
                            If Nx.Type = 14 Or Nx.Type = 1 Then Debug.Print Nx.TextFrame.TextRange.Text
                        Next
              ActivePresentation.Slides(X).Export "D:\" & X & ".JPG", ".JPG"           '（注意修改保存位置）
                    Next
                  End Sub

   这样图片导出来了，然后再次运行获得时间的宏，。。。。然后，就是用到网页制作技术来实现效果了，在这里我就讲vba和整个流程了，希望对大家有用。

补充：宏取得排练时间,导出开始时间和结束时间到图片名字：
Sub look()
'
' 宏由 zhen 创建，日期 2009-1-10。
'
    Dim slideshap As Shape
    Dim slideins As Long
    Dim slidetimes()
    Dim slidecount As Integer
    Dim outplace, imgname As String
    slidecount = ActivePresentation.Slides.Count
    ReDim slidetimes(slidecount)
    slidetimes(0) = 0
    outplace = "D:\Documents and Settings\Administrator\桌面\imgs\"
    For slideins = 1 To ActivePresentation.Slides.Count
        imgname = ""
        For Each slideshap In ActivePresentation.Slides(slideins).Shapes
            slidetimes(slideins) = ActivePresentation.Slides(slideins).SlideShowTransition.AdvanceTime
            If slideshap.Type = 14 Or slideshap.Type = 1 Then
                If slidetimes(slideins) > 0 Then
                    imgname = outplace & X & "[start-end]-[" & Int(slidetimes(slideins - 1)) & "-" & Int(slidetimes(slideins)) & "]" & ".JPG"
                End If
                Debug.Print slideshap.TextFrame.TextRange.Text
            End If
        Next
            If imgname <> "" Then ActivePresentation.Slides(slideins).Export imgname, ".JPG"
    Next
End Sub

在线PPT演示

[ 本帖最后由 atstudy007 于 2009-1-13 17:16 编辑 ]

cxffxc

抽时间试一下

PYSX

这个好像比较麻烦的啊

atstudy007

当然了，这么一套完整的系统很有价值的啊，呵呵，听说某某学校买了类似功能的一套系统花了几万的大洋哦