複製在PPT

Question

當試圖複製幻燈片1如何添加在數據庫中的值 - 4它將從我的數據庫中提取數據到形狀1和2

但我得到一個錯誤：方法的「項目」的object'Shapes'Failed

Power Point vba編碼新手。我不明白爲什麼我得到這個錯誤。

如果我複製幻燈片1和沒有陣列它工作正常，但我需要複製幻燈片1 - 4的套。有沒有辦法做到這一點？或者我必須找到另一種方式來做到這一點

當前代碼：

Do Until rs.EOF 
    Dim myPres As Presentation 
Dim mySlide As SlideRange 
Set myPres = ActivePresentation 
Dim sldRng As PowerPoint.SlideRange 
Set sldRng = ActivePresentation.Slides.Range(Array(1, 2, 3, 4)).Duplicate 
sldRng.Shapes(1).TextFrame.TextRange = rs.Fields("SeqNo").Value 
sldRng.Shapes(2).TextFrame.TextRange = rs.Fields("SeqData").Value 

Answer 1

這將是引發錯誤的路線，不是嗎？

sldRng.Shapes（1）.TextFrame.TextRange = rs.Fields（ 「的SeqNo」）值

甲sliderange包含幻燈片。幻燈片本身包含的形狀，所以需要引用來自sliderange的單獨的幻燈片，然後形狀集合上只是幻燈片：

sldRng(1).Shapes(1).TextFrame.TextRange = rs.Fields("SeqNo").Value 

或者更可能的：

Dim x as Long 
For x = 1 to sldRng.Count 
    sldRng(x).Shapes(1).TextFrame.TextRange = rs.Fields("SeqNo").Value 
Next