Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: hero7475 am 02.06.04 - 21:10:42

Titel: Automatische Bildbearbeitung
Beitrag von: hero7475 am 02.06.04 - 21:10:42

Guten Abend alle zusammen


Ich habe wieder mal ein "unlösbares" Problem...


Es soll in einem Dokument (rich Text Feld) eine Powerpoint-Präsentation eingefügt werden (kein Attachment).

Werden nun andere Status Dokumente ausgefüllt, sollen sich verschieden Eigenschaften des Powerpoint-Dokument automatisch ändern. (Wie zum Beispiel die Hintergrundfarbe)

Ist das irgendwie machbar oder gibt es eine  ähnliche praktikable Lösung ???



Ich bin für jeden Ansatz dankbar :-)

Titel: Re:Automatische Bildbearbeitung
Beitrag von: Ayhan am 02.06.04 - 21:53:16

Habe mal kurz gesucht und folgendes gefunden (jedoch nicht getestet).  Wie s aussieht, ist auch fast alles über LS möglich, jedoch kann ich dir keine konkrete Aussage darüber machen, wie genau.

Chris Lloyd
chrislloyd50@hotmail.com

':The following code takes the values from the 'City'
':and 'State' fields in a NotesUIDocument and places
':them in corresponding Powerpoint fields located in
':the first slide.


Option Public
Option Explicit

Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim ppApp As Variant

Sub Initialize
Set ws = New NotesUIWorkspace
Set uidoc=ws.CurrentDocument
Set ppApp = CreateObject("PowerPoint.Application")
ppApp.Visible=True
ppApp.Presentations.Open "C:\Program Files\Microsoft Office\Templates\Test1.pot", 0
With ppApp.Presentations(1).Slides(1).Shapes("City").OLEFormat.Object
.Text=uidoc.FieldGetText("City")
.FontSize=24
.FontName="Garamond"
End With
With ppApp.Presentations(1).Slides(1).Shapes("State").OLEFormat.Object
.Text=uidoc.FieldGetText("State")
.FontSize=24
.FontName="Garamond"
End With
ppApp.Presentations(1).Save
Set ppApp=Nothing
End Sub