如何插入不同的一組數據庫中的數據到PowerPoint時，我複製幻燈片？

Question

我是新來vba ppt編碼抱歉，如果這個問題是措辭不妙

我如何創建多個幻燈片1-4與差異數據庫數據集內？

（I可以創建多個組，但我不能插入數據庫中的數據）

例如：

第一組1-4是從的SeqNo數據：1

第二組的1 -4是從的SeqNo數據：2

我的代碼：

conn.Open cs 

query = "SELECT SeqNo, SeqData from Seqtab ORDER BY SeqNo DESC;" 
rs.Open query, conn 

row = 0 
Do Until rs.EOF 
Dim myPres As Presentation 
Dim mySlide As SlideRange 
Dim count As Long 
Set myPres = ActivePresentation 
Dim sldRng As PowerPoint.SlideRange 
Set sldRng = ActivePresentation.Slides(1).Duplicate 
sldRng.Shapes(1).TextFrame.TextRange = rs.Fields("SeqNo ").Value 
sldRng.Shapes(2).TextFrame.TextRange = rs.Fields("SeqData").Value 

Answer 1

如果你複製幻燈片的範圍內，你會得到一系列的幻燈片回來，你必須定義一個滑動範圍，供大家參考

Dim sldRng as PowerPoint.SlideRange Set sldRng = ActivePresentation.Slides.Range(Array(1, 2, 3, 4)).Duplicate