Hi alle.
Ich hab folgendes Problem:
Ich muss ein Programm schreiben welches eine Powerpoint Präsentation öffnet und auf einer bestimmten Seite startet. Das Öffnen und Laden hab ich durch folgenden Code geschafft:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure Ppt_Create();
var
PowerPoint: Variant;
begin
try
PowerPoint := GetActiveOleObject('PowerPoint.Application');
except
PowerPoint := CreateOleObject('PowerPoint.Application');
end;
PowerPoint.Visible := True;
PowerPoint.Presentations.Open('Fischprojekt.ppt', msoFalse, msoFalse, msoTrue);
end; |
CodeQuelle:
www.tipps.delphi-sou.../tut20010807-3.shtml
Jetzt hab ich das Problem zur z.b. Folie 5 zu kommen.
Jetz denk ich mir man kann ja mit PAGE-UP und PAGE-DOWN Taste die Folie wechseln. Nur WIE kann man auf ein anderes Fenster zugreifen und einen Tastendruck auslösen?
Oder gibt es eine elegantere Lösung für dieses Problem?
Danke
Blaster
