Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Furby am 26.02.08 - 11:10:15

Titel: PowerPoint
Beitrag von: Furby am 26.02.08 - 11:10:15

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!!

Titel: Re: PowerPoint
Beitrag von: DerAndre am 26.02.08 - 11:19:13

Hilft MSDN (http://msdn2.microsoft.com/en-us/library/aa213582(office.11).aspx)?

Titel: Re: PowerPoint
Beitrag von: Cube am 26.02.08 - 11:31:00

... oder auch dieser Link..

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

Titel: Re: PowerPoint
Beitrag von: DerAndre am 26.02.08 - 11:36:47

Der Link sieht ja mal nett aus.

Titel: Re: PowerPoint
Beitrag von: Furby am 26.02.08 - 11:41:07

Vielen Dank hat mir weitergeholfen

Titel: Re: PowerPoint
Beitrag von: Furby am 26.02.08 - 12:18:03

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??

Titel: Re: PowerPoint
Beitrag von: Axel am 26.02.08 - 12:39:41

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