關(guān)于PPT或PPS 文件中的一次性導(dǎo)出其中的全部圖片,我在【附錄】中介紹過,有些概念與方法,為了方便起見,摘錄重復(fù)如下:“PPS是放映文件,一打開就要放映,無法進行編輯。因此,要做這事,先要打開PPT系統(tǒng),在那里打開PPS文件,進行PPT的編輯。而PPT文件一打開,就直接進入了PowerPoint”。 PPT2003版中將PPT內(nèi)嵌圖片一次性全部導(dǎo)出的方法 1.打開PowerPoint幻燈片制作軟件,在PowerPoint中打開你需要圖片的那個演示文稿文件(ppt或pps). 2.在“文件”菜單中,單擊“打開”命令,在文件列表中,單擊要提取圖片的PPT或PPS文件,單擊“打開”按鈕。 3.在“文件”菜單中,單擊“另存為”命令。 4.然后在“保存位置”框中指定一個文件夾,在“保存類型”框中,單擊“網(wǎng)頁(*.htm;*.html)”【有的版本是“Web頁(*.htm;*.html)”】,在“文件名”框中指定一個文件名,比如AA,單擊“保存”。 5.在指定的文件夾中就生成一個名為“AA .htm”網(wǎng)頁文件,還同時生成一個名為“AA .files”的文件夾。這個“AA .htm”網(wǎng)頁文件,你可以不予顧及,但千萬不要刪掉,否則后面那個名為“AA .files”文件夾也會自動刪除的,我們要的就是這個文件夾,這個文件夾里保存了嵌入到PPT文件的所有圖片文件和聲音、影視等文件,而且這些文件沒有任何損失,與原PPT文件中使用的一模一樣,打開這個文件夾,你就可以使用這些圖片了。不過請當(dāng)心,同樣的圖片會有兩張,大小或者文件格式不一樣,可以在這個文件夾里用右鍵菜單,先將文件按“類型”排列、分組,即可輕易獲得所有圖片。再重復(fù)說一句,演示文稿中內(nèi)嵌的音樂文件和其他媒體文件都可在此找到,你可以從中輕易得手。 PPT 2010版中將PPT內(nèi)嵌圖片一次性全部導(dǎo)出的方法 但是PowerPoint 2010 版不提供另存新文件為 htm、mht 選項,但假如需要將文件轉(zhuǎn)換成 htm 或 mht 等網(wǎng)頁格式,可以使用VBA(Visual Basic for Applications)編程來解決 準(zhǔn)備工作:預(yù)先在D盤根目錄中建立一個新文件夾DV,后面產(chǎn)生的新文件及文件夾都將存在這個文件夾中。 先打開PowerPoint 2010,在PowerPoint 2010中打開你需要導(dǎo)出其中所有圖片的某個ppt文件,比如是“家鄉(xiāng)巨變-上海百年變遷歷史圖片對照.ppt”。 使用快捷鍵 Alt + F11 打開 VBA(Visual Basic for Applications)編程窗口(如是筆記本,還需按下Fn鍵,即Fn + F11 + Alt): 當(dāng)VBA窗口出現(xiàn)后,再使用快捷鍵Ctrl + G,彈出立即窗口: 在立即窗口中鍵入(或粘貼入): ActivePresentation.SaveAs "F:\DV\AAAA.htm", ppSaveAsHTML, msoFalse 其中您必須將 SaveAs后的內(nèi)容修改為另存新文件的文檔路徑與名稱,例如本例要把新文件另存為到F盤根目錄下的文件夾DV 中,文件名為 AAAA.htm,那么SaveAs后的內(nèi)容即為"F:\DV\AAAA.htm",該路徑應(yīng)完整地放在兩個英文狀態(tài)下的雙引號之間,反斜杠也是英文狀態(tài)下的反斜杠。根據(jù)你的實際需要,只需在程序中改變那一段路徑,其余不必改動。所以上面這一段程序是可以拷貝、粘貼后修改的,可以用拷貝、粘貼到記事本中保存,以備后用: 輸入完畢檢查無誤后,按 Enter 鍵即可執(zhí)行“另存為”(SaveAs)命令,由于保存需要一定時間,不要著急,一會兒電腦就將文件另存新文件為 htm了。在F盤根目錄下的文件夾DV 中,有了一個新的網(wǎng)頁文件,它的文件名為 AAAA.htm,還同時生成一個名為“AAAA .files”的文件夾。 這個“AAAA .htm”網(wǎng)頁文件,你可以不予顧及,但千萬不要刪掉,否則那個名為“AAAA .files”文件夾也會自動刪除的,我們要的就是這個文件夾,這個文件夾里保存了嵌入到PPT文件的所有圖片文件和聲音、影視等文件,打開這個文件夾,同樣的圖片會有兩張,大小或者文件格式不一樣,可以在這個文件夾里用右鍵菜單,先將文件按“類型”排列、分組,即可輕易獲得所有圖片。演示文稿中內(nèi)嵌的音樂文件和其他媒體文件都可在此找到,你可以從中輕易得手。 上述程序也可在VBA中編寫成過程,也就是“宏”,供儲存后重復(fù)調(diào)用(該過程也可保存到記事本中備用)。對此有基礎(chǔ)有興趣的朋友可以試一試,這只是VBA使用中比較簡單的一種。提供過程代碼供參考: Sub 另存網(wǎng)頁() ActivePresentation.SaveAs "F:\DV\AAAA.htm", ppSaveAsHTML, msoFalse End Sub |
|