将PPT内容导出为JPG图片代码,VB.NET代码库,德仔网

代码语言

代码分类

【VB.NET】将PPT内容导出为JPG图片

作者: / 发布于2018/1/25/ 557

为了在MP4里看PPT里的课件内容,可以把PPT转为电子书(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

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

可能有用的

贡献的其它代码Label