Difference between revisions of "ExcelAutomation/de"
m (Fixed syntax highlighting) |
|||
(6 intermediate revisions by 2 users not shown) | |||
Line 13: | Line 13: | ||
<br> | <br> | ||
==Speicherplatz reservieren== | ==Speicherplatz reservieren== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
var | var | ||
varXLApp: oleVariant; // wird für die Adressierung des Programms Excel verwedet | varXLApp: oleVariant; // wird für die Adressierung des Programms Excel verwedet | ||
varXLWb: oleVariant; // wird für die Adressierung des Exceldatei verwendet | varXLWb: oleVariant; // wird für die Adressierung des Exceldatei verwendet | ||
wstrUebergabe: WideString; // Hilfsvariable (wird z. B. für Umlaute usw. benötigt) | wstrUebergabe: WideString; // Hilfsvariable (wird z. B. für Umlaute usw. benötigt) | ||
+ | wstrRange: WideString // Hilfsvariable für eine Range | ||
</syntaxhighlight> | </syntaxhighlight> | ||
<br> | <br> | ||
==Excel OleObjekt erstellen== | ==Excel OleObjekt erstellen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
+ | uses | ||
+ | comobj; | ||
+ | |||
begin | begin | ||
... | ... | ||
Line 34: | Line 38: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
<br> | <br> | ||
+ | |||
==Excel beenden und den Speicher freigeben== | ==Excel beenden und den Speicher freigeben== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 45: | Line 50: | ||
<br> | <br> | ||
==Excel Version ermitteln== | ==Excel Version ermitteln== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 55: | Line 60: | ||
==Fehlermeldungen und Warnungen deaktivieren== | ==Fehlermeldungen und Warnungen deaktivieren== | ||
Das Dekativieren von bestimmten Fehlermeldungen und Warnungen kann die Softwaresteuerung vereinfachen. | Das Dekativieren von bestimmten Fehlermeldungen und Warnungen kann die Softwaresteuerung vereinfachen. | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 66: | Line 71: | ||
Für Excel 2003 und älter gilt, dass das Unterdrücken der Anzeige die Verarbeitungsgeschwindigkeit beschleunigt.<br> | Für Excel 2003 und älter gilt, dass das Unterdrücken der Anzeige die Verarbeitungsgeschwindigkeit beschleunigt.<br> | ||
Für alle Excelversionen gilt, dass es das das Flackern des Bildschirms verhindert. | Für alle Excelversionen gilt, dass es das das Flackern des Bildschirms verhindert. | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 82: | Line 87: | ||
==Workbook (Datei) öffnen== | ==Workbook (Datei) öffnen== | ||
Öffnet eine vorhandene Datei.<br> | Öffnet eine vorhandene Datei.<br> | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 99: | Line 104: | ||
==Workbook (Datei) einfügen== | ==Workbook (Datei) einfügen== | ||
Erstellt eine neue Datei.<br> | Erstellt eine neue Datei.<br> | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 108: | Line 113: | ||
<br> | <br> | ||
==Workbook speichern== | ==Workbook speichern== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 118: | Line 123: | ||
<br> | <br> | ||
==Workbook unter neuem Namen speichern== | ==Workbook unter neuem Namen speichern== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 127: | Line 132: | ||
<br> | <br> | ||
==Workbook schliessen== | ==Workbook schliessen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 136: | Line 141: | ||
<br> | <br> | ||
==Name des aktiven Workbooks ermitteln== | ==Name des aktiven Workbooks ermitteln== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
var | var | ||
strName: String; | strName: String; | ||
Line 153: | Line 158: | ||
=Worksheets= | =Worksheets= | ||
==Worksheet einfügen== | ==Worksheet einfügen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 162: | Line 167: | ||
<br> | <br> | ||
==Worksheet umbenennen== | ==Worksheet umbenennen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 172: | Line 177: | ||
<br> | <br> | ||
==Worksheet löschen== | ==Worksheet löschen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 182: | Line 187: | ||
<br> | <br> | ||
==Worksheet aktivieren== | ==Worksheet aktivieren== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 192: | Line 197: | ||
==Hintergrundbild einfügen== | ==Hintergrundbild einfügen== | ||
Um ein Hintergrundbild in ein Worksheet einzufügen gibt es mehrere Möglichkeiten.<br> | Um ein Hintergrundbild in ein Worksheet einzufügen gibt es mehrere Möglichkeiten.<br> | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 207: | Line 212: | ||
=Zeilen und Spalten= | =Zeilen und Spalten= | ||
==Zeilenbreite und Spaltenhöhe setzen== | ==Zeilenbreite und Spaltenhöhe setzen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 224: | Line 229: | ||
<br> | <br> | ||
==Zeilen löschen== | ==Zeilen löschen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 236: | Line 241: | ||
=Zellen und Ranges= | =Zellen und Ranges= | ||
==Autofilter setzen== | ==Autofilter setzen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 246: | Line 251: | ||
<br> | <br> | ||
==Rahmen zeichnen== | ==Rahmen zeichnen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 257: | Line 262: | ||
<br> | <br> | ||
==Hyperlinks und URLS einfügen== | ==Hyperlinks und URLS einfügen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 275: | Line 280: | ||
==Wert einfügen== | ==Wert einfügen== | ||
Um einen oder mehrere Werte in einen Bereich einzufügen gibt es verschiedene Möglichkeiten.<br> | Um einen oder mehrere Werte in einen Bereich einzufügen gibt es verschiedene Möglichkeiten.<br> | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 287: | Line 292: | ||
// Alternative 3 | // Alternative 3 | ||
+ | wstrRange := UTF8ToUTF16('A' + IntToStr(5) + ':A' + IntToStr(7)); | ||
+ | varXLApp.WorkBooks[1].WorkSheets[1].Range[wstrRange].Value := 3; | ||
+ | |||
+ | // Alternative 4 | ||
varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Range['A5', 'A7'].Value := 3; | varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Range['A5', 'A7'].Value := 3; | ||
Line 309: | Line 318: | ||
==Formel einfügen== | ==Formel einfügen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 321: | Line 330: | ||
<br> | <br> | ||
==Arbeiten mit Schriften== | ==Arbeiten mit Schriften== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 343: | Line 352: | ||
<br> | <br> | ||
==Chart Speicher reservieren== | ==Chart Speicher reservieren== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
var | var | ||
varDiagramm: OleVariant; | varDiagramm: OleVariant; | ||
Line 349: | Line 358: | ||
<br> | <br> | ||
==Chart Speicher freigeben== | ==Chart Speicher freigeben== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 358: | Line 367: | ||
<br> | <br> | ||
==Chart Objekt erstellen== | ==Chart Objekt erstellen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 367: | Line 376: | ||
<br> | <br> | ||
==Chart aktivieren== | ==Chart aktivieren== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 376: | Line 385: | ||
<br> | <br> | ||
==Chart Diagramtyp festlegen== | ==Chart Diagramtyp festlegen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 385: | Line 394: | ||
<br> | <br> | ||
==Chart Datenherkunft (Datenquelle) festlegen== | ==Chart Datenherkunft (Datenquelle) festlegen== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 395: | Line 404: | ||
<br> | <br> | ||
==Chart verschieben== | ==Chart verschieben== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 406: | Line 415: | ||
==Chart Titel== | ==Chart Titel== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 422: | Line 431: | ||
==Chart Achsenbeschriftung== | ==Chart Achsenbeschriftung== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 459: | Line 468: | ||
==Chart Legende== | ==Chart Legende== | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
begin | begin | ||
... | ... | ||
Line 470: | Line 479: | ||
=Auszug aus den Excelkonstanten= | =Auszug aus den Excelkonstanten= | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
unit uXLConst; | unit uXLConst; | ||
Line 821: | Line 830: | ||
end. | end. | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | + | ||
− | |||
− | |||
[[Category:Tutorials/de]] | [[Category:Tutorials/de]] |
Latest revision as of 14:05, 14 February 2020
Deutsch (de)
Zurück zur Office Automation.
Excel
Alle Möglichkeiten der Excelautomation aufzuzeigen ist nicht möglich ich hoffe aber für jeden Bedarf Anregungen gefunden zu haben.
Excel ist zu dem die automatisierungsfreundlichste Software von Microsoft.
Wenn Sie Umlaute usw. verwenden, dann sollten Sie wissen, dass Excel UTF16 codierte Strings verwendet.
Für die Oleautomation muss die Unit ComObj eingebunden werden.
Für die Verwendung von Umlauten usw. muss die Unit lclproc eingebunden werden.
Speicherplatz reservieren
var
varXLApp: oleVariant; // wird für die Adressierung des Programms Excel verwedet
varXLWb: oleVariant; // wird für die Adressierung des Exceldatei verwendet
wstrUebergabe: WideString; // Hilfsvariable (wird z. B. für Umlaute usw. benötigt)
wstrRange: WideString // Hilfsvariable für eine Range
Excel OleObjekt erstellen
uses
comobj;
begin
...
try
varXLApp := CreateOleObject('Excel.Application'); // erstellt das Excelobjekt
except
WriteLn('MS Excel kann nicht gestartet werden.'); // Fehlerbehandlung
end;
...
end;
Excel beenden und den Speicher freigeben
begin
...
varXLApp.Quit;
varXLApp := UnAssigned; //Der Speicher muss am Ende wieder freigegeben werden, sonst entstehen Speicherlecks
...
end;
Excel Version ermitteln
begin
...
ShowMessage(varXLApp.Version);
...
end;
Fehlermeldungen und Warnungen deaktivieren
Das Dekativieren von bestimmten Fehlermeldungen und Warnungen kann die Softwaresteuerung vereinfachen.
begin
...
varXLApp.DisplayAlerts := False; // schaltet diverse Fehlermeldungen von Excel aus
...
end;
Sichtbarkeit von Excel steuern
Für Excel 2003 und älter gilt, dass das Unterdrücken der Anzeige die Verarbeitungsgeschwindigkeit beschleunigt.
Für alle Excelversionen gilt, dass es das das Flackern des Bildschirms verhindert.
begin
...
varXLApp.Visible := False; // macht Excel unsichtbar
varXLApp.ScreenUpdating := False; // schaltet das ScreenUpdating von Excel aus
varXLApp.ScreenUpdating := True; // schaltet das ScreenUpdating von Excel ein
varXLApp.Visible := True; // macht Excel sichtbar
...
end;
Workbooks
Workbook (Datei) öffnen
Öffnet eine vorhandene Datei.
begin
...
varXLApp.Workbooks.Open(strPfad); // öffnet die Exceldatei (Pfad: maximal 255 Zeichen)
// Alternative:
// öffnet ein vorhandenes Workbook (Exceldatei) und weist seine Speicheradresse
// der Variablen varXLWb zu. Diese Variable ermöglicht eine kürzere Schreibweise
// und eindeutige (direkte) Ansprache des Dokuments.
// Das ist besonders dann hilfreich, wenn man mit mehreren Exceldateien gleichzeitig arbeitet.
varXLWb := varXLApp.Workbooks.Open(strPfad);
...
end;
Workbook (Datei) einfügen
Erstellt eine neue Datei.
begin
...
varXLApp.Workbooks.Add; // fügt ein neues Workbook ein
...
end;
Workbook speichern
begin
...
varXLApp.Workbooks[1].Save; // speichert ein Worksheet über seinen Index
varXLApp.Workbooks['Test.xls'].Save; // speicher ein Worksheet über seinen Namen
...
end;
Workbook unter neuem Namen speichern
begin
...
varXLApp.Workbooks[1].SaveAs('D:\Test.xls', varXLApp.Workbooks[1].fileformat);
...
end;
Workbook schliessen
begin
...
varXLApp.Workbooks[1].Close;
...
end;
Name des aktiven Workbooks ermitteln
var
strName: String;
begin
...
// Ausgabe am Bildschirm
ShowMessage(varXLApp.ActiveWorkbook.Name);
// Alternative:
// speichern in einer Variable
strName := varXLApp.ActiveWorkbook.Name;
...
end;
Worksheets
Worksheet einfügen
begin
...
varXLApp.WorkBooks[1].WorkSheets.Add; //fügt ein neues WorkSheet hinzu
...
end;
Worksheet umbenennen
begin
...
varXLApp.WorkBooks[1].WorkSheets[1].Name := 'Neuer Name'; // benennt ein Worksheet über seinen Index um
varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Name := 'Neuer Name'; // benennt ein Worksheet über seinen Namen um
...
end;
Worksheet löschen
begin
...
varXLApp.WorkBooks[1].WorkSheets[3].Delete; // löscht ein Worksheet über seinen Index
varXLApp.WorkBooks[1].WorkSheets['Tabelle3'].Delete; // löscht ein Worksheet über seinen Namen
...
end;
Worksheet aktivieren
begin
...
varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Activate;
...
end;
Hintergrundbild einfügen
Um ein Hintergrundbild in ein Worksheet einzufügen gibt es mehrere Möglichkeiten.
begin
...
// Um das richtige Worksheet zu addressieren verwendet man den Index von Workbook und Worksheet
varXLApp.WorkBooks[1].WorkSheets[1].SetBackGroundPicture('D:\Testbild.JPG');
// Alternative
// Um das richtige Worksheet zu addressieren verwendet man die Namen von Workbook und Worksheet
varXLApp.WorkBooks['Test.xls'].WorkSheets['Tabelle2'].SetBackGroundPicture('D:\Testbild.JPG');
...
end;
Zeilen und Spalten
Zeilenbreite und Spaltenhöhe setzen
begin
...
// Setzt die Spaltenbreite für Spalte 1
varXLApp.WorkBooks[1].WorkSheets[1].Columns.Columns[1].ColumnWidth := 70;
// oder
varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Columns.Columns[1].ColumnWidth := 70;
// Setzt die Spaltenhöhe für Zeile 1
varXLApp.WorkBooks[1].WorkSheets[1].Rows.Rows[1].RowHeight := 60;
// oder
varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Rows.Rows[1].RowHeight := 60;
...
end;
Zeilen löschen
begin
...
// Löscht die Zeilen 8 bis 10 und verschiebt die darunter liegenden Zeilen nach oben
varXLWb.Worksheets['Tabelle2'].Rows['8:10'].Delete (xlUp);
...
end;
Zellen und Ranges
Autofilter setzen
begin
...
// setzt den Autofilter auf die erste Zeile
varXLApp.WorkBooks[1].WorkSheets[1].Rows.Rows[1].AutoFilter;
...
end;
Rahmen zeichnen
begin
...
// Zeichnet einen Rahmen um den Bereich "B2:C3"
// Der Parameter BorderAround hat folgende Syntax: BorderAround(Linienstil, Linenstärke, Farbe)
varXLApp.WorkBooks[1].WorkSheets[1].Range['B2:C3'].BorderAround(1, 2, 1);
...
end;
Hyperlinks und URLS einfügen
begin
...
// Fügt eine URL in Zelle "A2" in Sheet 2 ein
// Alternative 1
varXLApp.WorkBooks[1].Worksheets[2].Hyperlinks.add(
varXLApp.WorkBooks[1].Worksheets[2].Cells[2, 1], 'http://www.google.de');
// Alternative 2
varXLApp.WorkBooks[1].worksheets[2].Cells[2,1].Formula := '=HYPERLINK("http://www.google.de")';
// Fügt eine Emailadresse als Formel in Zelle "A3" in Sheet 2 ein
varXLApp.WorkBooks[1].worksheets[2].Cells[3,1].Formula := '=HYPERLINK("mailto:test.testmann.@test.com","Email")';
...
end;
Wert einfügen
Um einen oder mehrere Werte in einen Bereich einzufügen gibt es verschiedene Möglichkeiten.
begin
...
// Alternative 1
varXLApp.WorkBooks[1].WorkSheets[1].Range['A5'].Value := 3;
varXLApp.WorkBooks[1].WorkSheets[1].Range['A6'].Value := 3;
varXLApp.WorkBooks[1].WorkSheets[1].Range['A7'].Value := 3;
// Alternative 2
varXLApp.WorkBooks[1].WorkSheets[1].Range['A5', 'A7'].Value := 3;
// Alternative 3
wstrRange := UTF8ToUTF16('A' + IntToStr(5) + ':A' + IntToStr(7));
varXLApp.WorkBooks[1].WorkSheets[1].Range[wstrRange].Value := 3;
// Alternative 4
varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Range['A5', 'A7'].Value := 3;
// Alternative ...
...
// Übernimmt Umlaute usw. und benötigt dafür die Unit lclproc
varXLApp.WorkSheets[1].Range['A15'].Value := UTF8ToUTF16('Überlegung');
// Diese Vorgehensweise zur Verwendung von Umlauten ist sicherer
wstrUebergabe := UTF8ToUTF16('Überlegung');
varXLApp.WorkSheets[1].Range['A15'].Value := wstrUebergabe;
// Ermittelt die letzte Zeile und schreibt diese in Zeile 1 der Spalte F
varXLWb.Worksheets['Tabelle2'].Range['F1'].Value :=
varXLWb.Worksheets['Tabelle2'].UsedRange.SpecialCells(xlCellTypeLastCell).Row;
// schreibt Text in die Zeile 1 der Spalte B
varXLWb.Worksheets['Tabelle2'].Cells[1, 2].Value := 'Test';
...
end;
Formel einfügen
begin
...
// Alternative 1
varXLApp.WorkBooks[1].worksheets[2].Cells[6,3].Formula := '=Sum(A5:A7)';
// Alternative 2
varXLApp.WorkBooks[1].WorkSheets[2].Range['C6'].Formula := '=Sum(A5:A7)';
...
end;
Arbeiten mit Schriften
begin
...
// Legt die Schriftart fest
varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Name := 'Arial';
// Legt die Schriftgröße fest
varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Size := 20;
// Legt die Fettschrift fest
varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Bold := True;
//Legt die Kursivschrift fest
varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Italic := True;
// Unterstreicht den Eintrag
varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Underline := True;
...
end;
Chart erstellen
Die Beispiele gehen davon aus, dass das Excelobjekt (varXLApp) bereits existiert und die Exceldatei geöffnet ist.
Chart Speicher reservieren
var
varDiagramm: OleVariant;
Chart Speicher freigeben
begin
...
varDiagramm := UnAssigned;
...
end;
Chart Objekt erstellen
begin
...
varDiagramm := varXLApp.Charts.Add; // Fügt ein Chart ein
...
end;
Chart aktivieren
begin
...
varDiagramm.Activate; // Aktiviert das Chart
...
end;
Chart Diagramtyp festlegen
begin
...
varDiagramm.ChartType := xlColumnClustered; // Legt den Diagramtyp fest
...
end;
Chart Datenherkunft (Datenquelle) festlegen
begin
...
varDiagramm.SetSourceData (Source := varXLApp.WorkSheets['Tabelle1'].Range['A1:E13'],
PlotBy := xlColumns); // Legt die Datenherkunft (das Excelsheet und den Bereich im Excelsheet) fest
...
end;
Chart verschieben
begin
...
// Diagramm im selben Tabellenblatt wie die Datentabelle.
varDiagramm.Location (Where := xlLocationAsObject, Name:= 'Tabelle1');
...
end;
Chart Titel
begin
...
varXLApp.Worksheets[1].ChartObjects[1].Chart.HasTitle := True; // Legt fest, dass das Chart einen Titel haben darf
varXLApp.Worksheets[1].ChartObjects[1].Chart.ChartTitle
.Characters.Text := 'Test'; // Legt den Namen des Chart Titels fest
varXLApp.Worksheets[1].ChartObjects[1].Chart.ChartTitle
.Font.Color := vbRed; // Legt die Schriftfarbe des Diagrammtitels fest
varXLApp.Worksheets[1].ChartObjects[1].Chart.ChartTitle
.Interior.Color := vbCyan; // Legt die Hintergrundarbe des Diagrammtitels fest
...
end;
Chart Achsenbeschriftung
begin
...
// Legt fest, dass das Chart Achsen hat
varXLApp.Worksheets[1].ChartObjects[1].Chart.HasAxis(xlCategory) := True;
// Legt die Schriftfarbe der Achsenkategorie fest
varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlCategory).TickLabels
.Font.Color := vbBlue;
// Legt fest, dass das Chart eine Achsenbeschriftung haben darf
varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlValue).HasTitle:= True;
// Legt den Achsentitel fest
// Ermöglicht das Schreiben des Eurozeichens
varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes[xlValue].AxisTitle
.Characters.Text := UTF8ToUTF16('€');
// Diese Schreibweise des Eurozeichens ist sicherer
wstrUebergabe := UTF8ToUTF16('€');
varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes[xlValue].AxisTitle
.Characters.Text := wstrUebergabe;
// Legt die Schriftfarbe des Achsentitels fest
varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlValue).AxisTitle
.Font.Color := vbBlue;
// Legt die Schriftgrösse des Achsentitels fest
varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlValue).AxisTitle
.Font.Size := 12;
...
end;
Chart Legende
begin
...
//Legt die Beschriftung des ersten Elements der Chartlegende fest
varXLApp.Worksheets[1].ChartObjects[1].Chart.SeriesCollection(1)
.Name := '="Eins"';
...
end;
Auszug aus den Excelkonstanten
unit uXLConst;
interface
const
// Klasse XlSheetType
xlChart = -4109;
xlDialogSheet = -4116;
xlExcel4IntlMacroSheet = 4;
xlExcel4MacroSheet = 3;
xlWorksheet = -4167;
// Klasse XlWBATemplate
xlWBATChart = -4109;
xlWBATExcel4IntlMacroSheet = 4;
xlWBATExcel4MacroSheet = 3;
xlWBATWorksheet = -4167;
// Klasse XlPattern
xlPatternAutomatic = -4105;
xlPatternChecker = 9;
xlPatternCrissCross = 16;
xlPatternDown = -4121;
xlPatternGray16 = 17;
xlPatternGray25 = -4124;
xlPatternGray50 = -4125;
xlPatternGray75 = -4126;
xlPatternGray8 = 18;
xlPatternGrid = 15;
xlPatternHorizontal = -4128;
xlPatternLightDown = 13;
xlPatternLightHorizontal = 11;
xlPatternLightUp = 14;
xlPatternLightVertical = 12;
xlPatternNone = -4142;
xlPatternSemiGray75 = 10;
xlPatternSolid = 1;
xlPatternUp = -4162;
xlUp = -4162;
xlPatternVertical = -4166;
// Klasse XlBordersIndex
xlInsideHorizontal = 12;
xlInsideVertical = 11;
xlDiagonalDown = 5;
xlDiagonalUp = 6;
xlEdgeBottom = 9;
xlEdgeLeft = 7;
xlEdgeRight = 10;
xlEdgeTop = 8;
// Klasse XlLineStyle
xlContinuous = 1;
xlDash = -4115;
xlDashDot = 4;
xlDashDotDot = 5;
xlDot = -4118;
xlDouble = -4119;
xlSlantDashDot = 13;
xlLineStyleNone = -4142;
// Klasse XlChartType
xlColumnClustered = 51;
xlColumnStacked = 52;
xlColumnStacked100 = 53;
xl3DColumnClustered = 54;
xl3DColumnStacked = 55;
xl3DColumnStacked100 = 56;
xlBarClustered = 57;
xlBarStacked = 58;
xlBarStacked100 = 59;
xl3DBarClustered = 60;
xl3DBarStacked = 61;
xl3DBarStacked100 = 62;
xlLineStacked = 63;
xlLineStacked100 = 64;
xlLineMarkers = 65;
xlLineMarkersStacked = 66;
xlLineMarkersStacked100 = 67;
xlPieOfPie = 68;
xlPieExploded = 69;
xl3DPieExploded = 70;
xlBarOfPie = 71;
xlXYScatterSmooth = 72;
xlXYScatterSmoothNoMarkers = 73;
xlXYScatterLines = 74;
xlXYScatterLinesNoMarkers = 75;
xlAreaStacked = 76;
xlAreaStacked100 = 77;
xl3DAreaStacked = 78;
xl3DAreaStacked100 = 79;
xlDoughnutExploded = 80;
xlRadarMarkers = 81;
xlRadarFilled = 82;
xlSurface = 83;
xlSurfaceWireframe = 84;
xlSurfaceTopView = 85;
xlSurfaceTopViewWireframe = 86;
xlBubble = 15;
xlBubble3DEffect = 87;
xlStockHLC = 88;
xlStockOHLC = 89;
xlStockVHLC = 90;
xlStockVOHLC = 91;
xlCylinderColClustered = 92;
xlCylinderColStacked = 93;
xlCylinderColStacked100 = 94;
xlCylinderBarClustered = 95;
xlCylinderBarStacked = 96;
xlCylinderBarStacked100 = 97;
xlCylinderCol = 98;
xlConeColClustered = 99;
xlConeColStacked = 100;
xlConeColStacked100 = 101;
xlConeBarClustered = 102;
xlConeBarStacked = 103;
xlConeBarStacked100 = 104;
xlConeCol = 105;
xlPyramidColClustered = 106;
xlPyramidColStacked = 107;
xlPyramidColStacked100 = 108;
xlPyramidBarClustered = 109;
xlPyramidBarStacked = 110;
xlPyramidBarStacked100 = 111;
xlPyramidCol = 112;
xl3DColumn = -4100;
xlLine = 4;
xl3DLine = -4101;
xl3DPie = -4102;
xlPie = 5;
xlXYScatter = -4169;
xl3DArea = -4098;
xlArea = 1;
xlDoughnut = -4120;
xlRadar = -4151;
// Klasse Constants
xlAll = -4104;
xlAutomatic = -4105;
xlBoth = 1;
xlCenter = -4108;
xlChecker = 9;
xlCircle = 8;
xlCorner = 2;
xlCrissCross = 16;
xlCross = 4;
xlDiamond = 2;
xlDistributed = -4117;
xlDoubleAccounting = 5;
xlFixedValue = 1;
xlFormats = -4122;
xlGray16 = 17;
xlGray8 = 18;
xlGrid = 15;
xlHigh = -4127;
xlInside = 2;
xlJustify = -4130;
xlLightDown = 13;
xlLightHorizontal = 11;
xlLightUp = 14;
xlLightVertical = 12;
xlLow = -4134;
xlManual = -4135;
xlMinusValues = 3;
xlModule = -4141;
xlNextToAxis = 4;
xlNone = -4142;
xlNotes = -4144;
xlOff = -4146;
xlOn = 1;
xlPercent = 2;
xlPlus = 9;
xlPlusValues = 2;
xlSemiGray75 = 10;
xlShowLabel = 4;
xlShowLabelAndPercent = 5;
xlShowPercent = 3;
xlShowValue = 2;
xlSimple = -4154;
xlSingle = 2;
xlSingleAccounting = 4;
xlSolid = 1;
xlSquare = 1;
xlStar = 5;
xlStError = 4;
xlToolbarButton = 2;
xlTriangle = 3;
xlGray25 = -4124;
xlGray50 = -4125;
xlGray75 = -4126;
xlBottom = -4107;
xlLeft = -4131;
xlRight = -4152;
xlTop = -4160;
xl3DBar = -4099;
xl3DSurface = -4103;
xlBar = 2;
xlColumn = 3;
xlCombination = -4111;
xlCustom = -4114;
xlDefaultAutoFormat = -1;
xlMaximum = 2;
xlMinimum = 4;
xlOpaque = 3;
xlTransparent = 2;
xlBidi = -5000;
xlLatin = -5001;
xlContext = -5002;
xlLTR = -5003;
xlRTL = -5004;
xlVisualCursor = 2;
xlLogicalCursor = 1;
xlSystem = 1;
xlPartial = 3;
xlHindiNumerals = 3;
xlBidiCalendar = 3;
xlGregorian = 2;
xlComplete = 4;
xlScale = 3;
xlClosed = 3;
xlColor1 = 7;
xlColor2 = 8;
xlColor3 = 9;
xlConstants = 2;
xlContents = 2;
xlBelow = 1;
xlCascade = 7;
xlCenterAcrossSelection = 7;
xlChart4 = 2;
xlChartSeries = 17;
xlChartShort = 6;
xlChartTitles = 18;
xlClassic1 = 1;
xlClassic2 = 2;
xlClassic3 = 3;
xl3DEffects1 = 13;
xl3DEffects2 = 14;
xlAbove = 0;
xlAccounting1 = 4;
xlAccounting2 = 5;
xlAccounting3 = 6;
xlAccounting4 = 17;
xlAdd = 2;
xlDebugCodePane = 13;
xlDesktop = 9;
xlDirect = 1;
xlDivide = 5;
xlDoubleClosed = 5;
xlDoubleOpen = 4;
xlDoubleQuote = 1;
xlEntireChart = 20;
xlExcelMenus = 1;
xlExtended = 3;
xlFill = 5;
xlFirst = 0;
xlFloating = 5;
xlFormula = 5;
xlGeneral = 1;
xlGridline = 22;
xlIcons = 1;
xlImmediatePane = 12;
xlInteger = 2;
xlLast = 1;
xlLastCell = 11;
xlList1 = 10;
xlList2 = 11;
xlList3 = 12;
xlLocalFormat1 = 15;
xlLocalFormat2 = 16;
xlLong = 3;
xlLotusHelp = 2;
xlMacrosheetCell = 7;
xlMixed = 2;
xlMultiply = 4;
xlNarrow = 1;
xlNoDocuments = 3;
xlOpen = 2;
xlOutside = 3;
xlReference = 4;
xlSemiautomatic = 2;
xlShort = 1;
xlSingleQuote = 2;
xlStrict = 2;
xlSubtract = 3;
xlTextBox = 16;
xlTiled = 1;
xlTitleBar = 8;
xlToolbar = 1;
xlVisible = 12;
xlWatchPane = 11;
xlWide = 3;
xlWorkbookTab = 6;
xlWorksheet4 = 1;
xlWorksheetCell = 3;
xlWorksheetShort = 5;
xlAllExceptBorders = 6;
xlLeftToRight = 2;
xlTopToBottom = 1;
xlVeryHidden = 2;
xlDrawingObject = 14;
// Klasse XLPlacement
xlMoveAndSize = 1;
xlMove = 2;
xlFreeFloating = 3;
// Klasse XlRowCol
xlRows = 1;
xlColumns = 2;
// Klasse XlChartLocation
xlLocationAsNewSheet = 1;
xlLocationAsObject = 2;
xlLocationAutomatic = 3;
// Klasse XlAxisType
xlCategory = 1;
xlValue = 2;
xlSeriesAxis = 3;
// Klasse ColorConstants
vbBlack = 0;
vbBlue = 16711680;
vbCyan = 16776960;
vbGreen = 65280;
vbMagenta = 16711935;
vbRed = 255;
vbWhite = 16777215;
vbYellow = 65535;
// Klasse XlCellType
xlCellTypeAllFormatConditions = -4172;
xlCellTypeAllValidation = -4174;
xlCellTypeBlanks = 4;
xlCellTypeComments = -4144;
xlCellTypeConstants = 2;
xlCellTypeFormulas = -4123;
xlCellTypeLastCell = 11;
xlCellTypeSameFormatConditions = -4173;
xlCellTypeSameValidation = -4175;
xlCellTypeVisible = 12;
// Klasse XLAxisGroup
xlPrimary = 1;
xlSecondary = 2;
implementation
end.