Difference between revisions of "PowerpointAutomation/de"
From Lazarus wiki
Jump to navigationJump to searchLine 82: | Line 82: | ||
<br> | <br> | ||
--[[User:Olaf|Olaf]] 17:20, 21 September 2012 (UTC) | --[[User:Olaf|Olaf]] 17:20, 21 September 2012 (UTC) | ||
− | [[Category:Tutorials]] | + | |
+ | [[Category:Tutorials/de]] |
Revision as of 06:54, 25 September 2012
│
Deutsch (de) │
Powerpoint als OleObjekt
Für die Oleautomation muss die Unit ComObj eingebunden werden.
Speicherplatz reservieren
var
varPptApp: OleVariant;
Powerpoint: OleObjekt erstellen
begin
...
try
varPptApp := CreateOleObject('Powerpoint.Application'); // erstellt das Powerpointobjekt
except
WriteLn('MS Powerpoint kann nicht gestartet werden.'); // Fehlerbehandlung
end;
...
end;
Powerpoint: OleObjekt beenden und den Speicher freigeben
begin
...
varPptApp.Quit;
varPptApp := Unassigned;
...
end;
Powerpoint: Version ermitteln
begin
...
ShowMessage(varPptApp.Version);
...
end;
Powerpoint: neue Datei erstellen
begin
...
varPptApp.Presentations.Add(True); // Fügt eine neue Präsentation ein
...
end;
Powerpoint: Datei öffnen
Diese Funktion hat experimentellen Charakter, denn auf einigen PCs funktioniert sie und auf anderen nicht.
Das ist unabhängig davon, mit welcher Programmiersprache Sie arbeiten.
begin
...
// Erster Parameter: Dateiname (Pfad: maximal 255 Zeichen, Alphanumerisch)
// Zweiter Parameter: readonly Modus
// Dritter Parameter: unbenannte Kopie der Datei
// Vierter Parameter: Datei soll angezeigt werden
varPptApp.Presentations.Open(strTest, msoFalse, msoFalse, msoTrue);
...
end;
Powerpoint: Sichtbarkeit steuern
Wenn Powerpoint während der Erstellung einer Präsentation unsichtbar ist, dann flackert der Bildschirm nicht.
begin
...
varPptApp.Visible := False; //macht Powerpoint unsichtbar
varPptApp.Visible := True; //macht Powerpoint sichtbar
...
end;
--Olaf 17:20, 21 September 2012 (UTC)