如何將多張圖片製作成一個PPT?每個幻燈片放一個圖片 匿名使用者 1級 2009-09-01 回答

這個可以用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將自動開啟並把所有圖片匯入成一幅圖片一張幻燈片。

如何將多張圖片製作成一個PPT?每個幻燈片放一個圖片 靠近你、溫暖我 1級 2009-09-01 回答

有一簡單的方法如下:

前提是先做以下步驟再加入文字之類的才可。

插入-圖片-新建相簿 (選擇檔案/磁碟)

然後連續選中幾個你要插入的圖片,確定

然後刪了第一個幻燈片,留下有背景圖的幻燈片。就行了。

如何將多張圖片製作成一個PPT?每個幻燈片放一個圖片 匿名使用者 1級 2009-09-01 回答

是統一製作母版嗎