- 帖子
- 5
- 主題
- 0
- 精華
- 0
- 積分
- 51
- 點名
- 79
- 作業系統
- win10
- 軟體版本
- 2017
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2020-10-21
- 最後登錄
- 2024-4-18
|
7#
發表於 2023-11-21 07:30
| 只看該作者
Sub PPT批量插入幻燈片及圖片()
Dim pptPre As Presentation
Dim p As Integer
Set pptPre = ActivePresentation
For p = 1 To 999
pptPre.Slides.Add p, ppLayoutTitleOnly '新建幻燈片，插入圖片，設定大小位置
pptPre.Slides(p).Shapes.AddPicture FileName:="D:\\excel_bad_apple\\image\\" & _
Format(p, "000") & ".bmp", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
Left:=55.11929, Top:=0, Width:=849.7614, Height:=540.7573
With pptPre.Slides(p).SlideShowTransition '設定切換方式及切換時間
.AdvanceOnClick = msoFalse '關閉滑鼠單擊切換
.AdvanceOnTime = msoTrue '開啟按時間切換
.AdvanceTime = 0.1 '切換時間為0.1秒
End With
Next p
End Sub
這段程式碼會在PowerPoint中新增999張幻燈片，並在每張幻燈片上插入一張圖片。圖片的檔案路徑和名稱在程式碼中被指定。您可以根據需要修改這段程式碼。
----------------
不知是否可行 |
|
