Difference between revisions of "PowerpointAutomation/de"
From Free Pascal wiki
Jump to navigationJump to search (Created page with "{{PowerpointAutomation}} <br> __TOC__ <br> =Powerpoint als OleObjekt= <br> =Speicherplatz reservieren= <syntaxhighlight> var varPptApp: OleVariant; </syntaxhighlight> <br> =...") |
|||
Line 68: | Line 68: | ||
<br> | <br> | ||
=Powerpoint: Sichtbarkeit steuern= | =Powerpoint: Sichtbarkeit steuern= | ||
+ | Wenn Powerpoint während der Erstellung einer Präsentation unsichtbar ist, dann flackert der Bildschirm nicht.<br> | ||
<syntaxhighlight> | <syntaxhighlight> | ||
begin | begin |
Revision as of 19:20, 21 September 2012
│
Deutsch (de) │
Powerpoint als OleObjekt
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;