为了在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图片啦.