[發問] PPT透過程式連續插入圖片

請問各位大大
我有設計了一個PPT，只要點擊插入圖片，旁邊還有一些固定的說明，就可以連續插入圖片，但我想要透過程式就可以將圖片插入，並在一定的位置且不影響圖片的說明，找不到相關的資料，可以請大大給我一些指點

doomtwo222

小學生 Rank: 1

帖子: 19
主題: 17
精華: 0
積分: 15
點名: 0
作業系統: windows
軟體版本: win10
閱讀權限: 10
性別: 男
來自: taiwan
註冊時間: 2024-9-9
最後登錄: 2024-10-16

8^#

發表於 2024-9-10 08:27 | 只看該作者

請問您找到了嗎？我也需要貼上很多的圖片...

一聽就懂，一看就會，一做就錯

TOP

tclung

中學生 Rank: 2

帖子: 5
主題: 0
精華: 0
積分: 51
點名: 155
作業系統: win10
軟體版本: 2017
閱讀權限: 20
性別: 男
註冊時間: 2020-10-21
最後登錄: 2024-10-19

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張幻燈片，並在每張幻燈片上插入一張圖片。圖片的檔案路徑和名稱在程式碼中被指定。您可以根據需要修改這段程式碼。

----------------
不知是否可行

TOP

adoration