臨下班前老板又雙叒搞臨時任務，丟來幾份幾百頁的PPT，讓我們把里面的圖片都提取出來，同事一邊哀嚎一邊埋頭苦干，瘋狂地另存為，我瞥了一眼， 目測她要兩小時才能搞定。

其實不用那么麻煩，提取圖片這種小事情，兩分鐘就能搞定啦！千萬不要傻傻地一張張另存為哦！小編來教你怎么做！

一、壓縮法提取

1、更改后綴名

為了保險起見，你可以先復制一份PPT當備份，然后選中要提取圖片的PPT，將其后綴名更改為【pptx】更改為【zip】，也就是壓縮包格式；

2、解壓

然后我們再將這個壓縮包解壓：

3、圖片文件夾

在解壓之后會有一個文件夾，我們在里面找到【media】這個文件夾，在這里面就存放著我們整份PPT里的圖片素材了！

二、代碼提取

如果你需要將PPT中的文字也提取出來的話，也很簡單！不要傻傻地復制粘貼！還有更快的方法！

1、VBA頁面

打開要提取文字的PPT，然后按下【Alt+F11】快捷鍵進入VBA頁面，點擊【插入】——【模塊】。

2、引用

然后我們再點擊【工具】——【引用】。

3、勾選

在彈出的窗口中，找到Microsoft Word 16.0 ObjectLibrary選項，勾選并點擊確定。

4、復制代碼

然后將下面這串代碼復制粘貼進去：

Sub Main()

On Error Resume Next

Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide

For Each tmpSlide In ActivePresentation.Slides

For Each tmpShape In tmpSlide.Shapes

temp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.Text

Next tmpShape

Next tmpSlide

temp.Application.Visible = True

End Sub

5、執行

按下F5執行代碼，PPT中的文字內容就會直接轉成一個Word文檔，我們將這個文檔保存即可！

怎么樣？這兩個方法你都學會了嗎？以后不要傻傻地復制粘貼或者另存為了，這樣操作能省一半時間！

總結

以上是生活随笔為你收集整理的vba htm转成图片_提取1000页PPT的图片，同事花了两小时，我只花了两分钟的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。