为了在MP4里看PPT里的课件内容,可以把PPT转为电子书(TXT), 也可以转为图片作图片浏览.
PowerPoint没有另存为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图片啦.'
' 宏由 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