将PPT内容导出为JPG图片

来源:百度文库 编辑:神马文学网 时间:2024/04/19 11:34:17

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

Sub macrox()
'
'
'
     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 InActivePresentation.Slides(X).Shapes
                     If Nx.Type = 14Or Nx.Type = 1 Then Debug.PrintNx.TextFrame.TextRange.Text
             Next
            '导出幻灯片到图像
            ActivePresentation.Slides(X).Export "D:\"& X & ".JPG",".JPG"
     Next

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