Difference between revisions of "PowerpointAutomation/de"

From Lazarus wiki
Jump to navigationJump to search
Line 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)