将PPT内容导出为JPG图片

为了在MP4里看PPT里的课件内容,可以把PPT转为电子书(TXT), 也可以转为图片作图片浏览.
PowerPoint没有另存为TXT的,网上找到一个宏,达到了这个要求.感觉不错咯.

Sub macrox()
'
'  宏由 zim 创建，日期 2007-10-5。
'
    Dim Nx     As Shape
    Dim X     As Long
    For X  =   1  To ActivePresentation.Slides.Count
             ' 跳至指定的幻燈片
             ' ActiveWindow.View.GotoSlide   X
             ' 獲取當前幻燈片編號
             ' ActiveWindow.View.Slide.SlideIndex
             ' ActiveWindow.Selection.SlideRange.Shapes
            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

运行这个宏,就将这个PPT里的内容每张导出为一张JPG图片啦.