Wie füge ich Werte in der Datenbank, wenn sie in PPT

Question

Versuch duplizieren Folie zu duplizieren 1 bis 4, die Daten aus der Datenbank in Form 1 und 2

ziehen wird, aber ich bin immer einen Fehler: Methode von ‚Item‘ von Objekt 'Shapes' fehlgeschlagen

Neu bei Power Point VBA-Codierung. Ich verstehe nicht wirklich, warum ich diesen Fehler bekomme.

Wenn ich nur Folie 1 und ohne das Array dupliziere, funktioniert es gut, aber ich muss es in Sätzen von Folie 1 - 4 duplizieren. Gibt es eine Möglichkeit, dies zu tun? oder ich habe einen anderen Weg zu finden, es

aktuellen Code zu tun:

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

Dies wäre die Zeile, die den Fehler auslöst, nicht wahr?

sldRng.Shapes (1) = .TextFrame.TextRange rs.Fields ("SEQNO") Wert

A sliderange enthält gleitet. die Folien selbst enthalten Formen, so benötigen Sie eine einzelne Folie aus dem sliderange zu verweisen, und die Formen Sammlung dann auf gerade diese Folie:

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

Oder eher:

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