Как вставить различные данные базы данных в PowerPoint, когда я дублирую слайды?

Question

Я новичок в vba ppt кодировании извините, если вопрос плохо сформулирован

Как создать множественный набор слайдов 1-4 с данными базы данных diff внутри?

(я могу создать несколько набор, но я не могу вставить данные базы данных)

Например:

первый набор 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