Re: [請益] 請問有沒有把pdf轉成ppt的軟體阿

看板EZsoft (小軟體)作者 (再努力一點...)時間17年前 (2009/03/26 11:05), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串1/1
Step 1: PDF to JPG: 應該有很多方法吧 我是用 #15ApVGhB 篇 CCY0927 教的方法~ (Ghostscript) Script: FOR /F "delims=." %%k IN ('dir /b .\*.pdf') DO ( "gswin32c.exe" -dNOPAUSE -dBATCH -dTextAlphaBits=4 -sDEVICE=jpeg -sOutputFile="%%d.jpg" -r150 -f "%%k.pdf" ) (要把中間那三行接起來~) 把產生出來的圖檔, 命名成 1.jpg, 2.jpg, 3.jpg, ... etc. Step 2: JPG as PPT's background 開一個新 PowerPoint 檔 (我是在 M$ PPT 下試的~) 按 <Alt> + <F11> (i.e., edit a macro with VB) [插入] -> [模組] -> 貼上下面那段 Sub insert_bachground() For i = 1 To %Pages% Step 1 With ActivePresentation.Slides .Add(Index:=i, Layout:=ppLayoutText).Select End With ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank With ActiveWindow.Selection.SlideRange .FollowMasterBackground = msoFalse .DisplayMasterShapes = msoTrue With .Background .Fill.Visible = msoTrue .Fill.ForeColor.RGB = RGB(255, 255, 255) .Fill.BackColor.SchemeColor = ppAccent1 .Fill.Transparency = 0# .Fill.UserPicture "%PATH%" & i & ".jpg" End With End With Next i End Sub (%Pages% 那部份改成你圖檔的數量, ex: 77) (%PATH% 那部份改成你圖檔存的資料夾位置, ex: C:\pic\) 按 <Alt> + <F8> (i.e., Run Macro) 選 "insert_bachground" 哈 研究很久.. 應該就可以了~ !! -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.122.185.1 ※ 編輯: lzch 來自: 114.137.8.72 (03/26 15:46)
文章代碼(AID): #19ol4AHG (EZsoft)
文章代碼(AID): #19ol4AHG (EZsoft)