PowerPoint

[Furby]

Hallo Zusammen

ich hab da ein kleines Problem.
Mit LotusScript öffne ich eine PowerPoint Vorlage weiß aber nicht wie ich diese mit Text aus meiner NotesDB füllen kann.

Code

	Set ppApp = CreateObject("PowerPoint.Application")	
	ppApp.Visible=True			
	ppApp.Presentations.Open "D:\Vorschlag.ppt", 0	

Ich hab schon oft gelesen das es im Prinzip genau so gehen soll wie in Word jedoch hab ich es noch nicht hinbekommen.

Wäre echt super wenn mir jemand helfen könnte DANKE!!

[DerAndre]

Hilft MSDN?

[Cube]

... oder auch dieser Link..

http://www.lemitec.de/load.php?name=News&file=article&sid=6

[DerAndre]

Der Link sieht ja mal nett aus.

[Furby]

Vielen Dank hat mir weitergeholfen

[Furby]

so ich hab mir das Ganze mal angeschaut und im pp direkt getestet. Hat soweit gut Funktioniert. Dann hab ich versucht über Notes eine neue Folie anzulegen mit:

Code

	Dim path As String
	
	path = "D:\Vorschlag.ppt"
	
	Set ppApp = CreateObject("PowerPoint.Application")	
	Call ppApp.Slides.Add(4, ppLayoutBlank)
	ppApp.Visible=True	
	
	ppApp.Presentations.Open "D:\Vorschlag.ppt", 0		

dabei kommt immer: "Instance member SLIDES does not exist"

Hat vielleicht jemand eine Idee??

[Axel]

So geht das auch nicht. Schau dir mal die VBA-Hilfe zu PowerPoint an. Die ist ein unbezahlbarer Fundus für die Programmierung.

Mal so aus dem Bauch (ungetestet):

Dim newPres As Variant

Set ppApp = CreateObject("PowerPoint.Application")   
Set newPres = ppApp.Presentations.Add(True)
newPres.Slides.Add 1, 1

Axel