標題: [發問] PPT透過程式連續插入圖片 [打印本頁]

---

作者: JamesSu    時間: 2019-12-1 21:28     標題: PPT透過程式連續插入圖片

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

---

作者: yws0915    時間: 2020-12-26 19:27

一年了，你有找到嗎？

---

作者: C.F    時間: 2022-3-15 12:33

有的話 可以分享嗎？

---

作者: 62calvin    時間: 2022-3-18 05:39

這個厲害！不知道您找到了嗎？我也常常需要貼上大量的圖片！

---

作者: 星空乂羽翼    時間: 2022-11-24 10:39

這想法很棒，不知最後有沒有達成呢?

---

作者: adoration    時間: 2023-3-24 11:35

還是沒有解答的樣子

---

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

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)