Difference between revisions of "PowerpointAutomation/de"
From Lazarus wiki
Jump to navigationJump to searchLine 79: | Line 79: | ||
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
+ | =Auszug aus den Powerpointkonstanten= | ||
<br> | <br> | ||
<br> | <br> | ||
--[[User:Olaf|Olaf]] 17:20, 21 September 2012 (UTC) | --[[User:Olaf|Olaf]] 17:20, 21 September 2012 (UTC) | ||
− | |||
[[Category:Tutorials/de]] | [[Category:Tutorials/de]] |
Revision as of 20:46, 26 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;
Auszug aus den Powerpointkonstanten
--Olaf 17:20, 21 September 2012 (UTC)