Exceldaten nach Powerpoint
07.01.2015 15:32:26
yummi
ich habe hier mehrere Zeilen mit Daten. Ziel ist die entsprechenden Zellinhalte in das entsprechende Textfeld einer Powerpoint Präsentation zu schreiben. Dabei soll für jede Zeile eine neue Folie erzeugt werden.
Ich habe eine Powerpointvorlage, die mir das Layout vorgibt.
Für eine Zeile mache ich das so:
letztezeile = wksDaten.Cells(Rows.Count, 1).End(xlUp).row
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = msoTrue
Set pptPres = pptApp.Presentations.Open(ThisWorkbook.Path & "\Statusblätter- _
Statusfahrt_Vorlage.potx")
'For i = 2 To letztezeile
i=2
'für jedes Fahrzeug ein Slide
bdummy = SchreibeFahrzeugppt(i, pptPres)
'Next i
Also in die 1. Folie schreiben klappt.Ich würde das jetzt gern so umsetzen, dass vor jedem Schreiben die folie 1 kopiert wird, und ich dann auf die neue Folie die Daten schreibe.
Ich habe schon versucht, den Verweis auf MS Powerpoint libary zu setzen, jedoch erhalte ich dann einen Namenskonflikt (obwohl ich nur Systemlibaries angezogen habe)
Wenn alle Folien geschrieben sind, kann ich ja die 1. Folie löschen und das Ganze unter einem anderen Namen speichern (so der Plan)
Ich hoffe, mir kann jemand einen entscheidenden Tip geben.
Danke
yummi