將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圖片啦.