---

Hallo,

ich habe eine Frage bezüglich der Anbindung von Plant Simulation an MS-Powerpoint. Ich möchte einige Daten aus einem Simulationsmodell in eine bestehende Präsentation übertragen.
Ich habe mal von der Möglichkeit gehört Powerpoint durch einen Befehl zu öffnen und dann mit einem anderen Befehl es möglich zu machen, dass man direkt in einer Methode vba-Code schreiben kann, um so die gewünschten Aktionen durchzuführen.
Hat jemand schon Erfahrung auf diesem Gebiet?

Danke!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mit dem ActiveX-Objekt ist dies möglich (benötigt eine eM-Plant-ActiveX-Lizenz). Ein Beispiel mit MS-Excel wird mit eM-Plant ausgeliefert:
Dazu auf den Infoseiten unter "Beispiele" das Modell "Beispiele" laden. In dem sich öffnenden Dialog die Kategorie "Schnittstellen" und das Thema "ActiveX" auswählen.
Mit MS-PowerPoint funktioniert es ganz ähnlich. Der Klassenname, der im ActiveX-Objekt angegeben werden muss, lautet dann "PowerPoint.Application" statt "excel.application".

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank für die schnelle Hilfe.
Hatte diese Beispielmodelle noch gar nicht endeckt und bin jetzt total begeistert was dort alles enthalten ist!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

hab ein wenig experimentiert und bin schon ein wenig weitergekommen.
Habe folgende Methode erstellt:

is
    xl:any;
do
   
-- activate the control
activex.active := true;
-- open the workbook
activeX.presentations.open("H:\MyDocuments\presentation1.ppt");
activex.ActiveWindow.Selection.SlideRange.Shapes("Rectangle2").Select;
activex.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select;
activex.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(1, 0).Select;
activex.ActiveWindow.Selection.TextRange.Text:= "Hier kommt Text";

end;

Wenn ich die Methode ausführe wird meine Präsentation geöffnet und auch das Shape Rectangle2 wird richtig markiert. Nur bei letzten Zeile, in der ich Text schreiben will kommt eine Fehlermeldung.
Hab aber den Code in Powerpoint aufgezeichnet und dort funktioniert die Zeile (natürlih ohne activex vornedran).
Meine zweite Frage ist, ob jemand den Befehl weiss mit dem ich von der Plant-Simulations-Ansicht in die Pwerpoint-Ansicht wechseln kann. Bisher geschieht bei mir nämlich alles im Hintergrund und ich muss erst manuell in das Powerpoint-Fenster gehen um das Ergebnis zu sehen.
Danke schonmal für die Hilfen!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP