如何將多張圖片製作成一個PPT?每個幻燈片放一個圖片
這個可以用VBS來做。如下步驟可自動將某個資料夾下面的JPG圖片按照每個圖片一張幻燈片的形式生成一個PPT檔案。
1、建立並儲存一個VBS檔案(比如“批次匯入圖片。vbs”)包含如下程式碼:
Option Explicit
Const strRootPath = “D:\Downloads\Pictures\”
Dim oApplication, oPresentation, oShape, fso, oFolder, oFile, oLayout, oSlide
Set oApplication = CreateObject(“PowerPoint。Application”)
oApplication。Visible = True
Set oPresentation = oApplication。Presentations。Add()
Set fso = CreateObject(“Scripting。FileSystemObject”)
Set oFolder = fso。GetFolder(strRootPath)
For Each oFile In oFolder。Files
If LCase(fso。GetExtensionName(oFile。Path)) = “jpg” Then
Set oSlide = oPresentation。Slides。AddSlide(oPresentation。Slides。Count + 1, oPresentation。SlideMaster。CustomLayouts(1))
Set oShape = oSlide。Shapes。AddPicture(oFile。Path, 0, -1, 0, 0)
If oShape。Width < oPresentation。PageSetup。SlideWidth Then oShape。Left = (oPresentation。PageSetup。SlideWidth - oShape。Width) / 2
If oShape。Height < oPresentation。PageSetup。SlideHeight Then oShape。Top = (oPresentation。PageSetup。SlideHeight - oShape。Height) / 2
End If
Next
Set fso = Nothing
Set oFolder = Nothing
Set oSlide = Nothing
Set oLayout = Nothing
Set oShape = Nothing
Set oPresentation = Nothing
2、修改其中的圖片資料夾路徑為你存放圖片的目錄;
3、在資源管理器中雙擊這個vbs檔案,PowerPoint將自動開啟並把所有圖片匯入成一幅圖片一張幻燈片。
有一簡單的方法如下:
前提是先做以下步驟再加入文字之類的才可。
插入-圖片-新建相簿 (選擇檔案/磁碟)
然後連續選中幾個你要插入的圖片,確定
然後刪了第一個幻燈片,留下有背景圖的幻燈片。就行了。
是統一製作母版嗎