返回列表 上一主題 發帖

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

tclung

帖子
5 
主題
2 
精華
0 
積分
51 
點名
0  
作業系統
win10 
軟體版本
2017 
閱讀權限
20 
性別
男 
註冊時間
2020-10-21 
最後登錄
2026-8-1 
1# 跳轉到 »
發表於 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

        靜思自在 : 為人處世要小心細心，但不要「小心眼」。
返回列表 上一主題