ExcelAutomation/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1		-	\
2	1		Zurück zur [[Office Automation/de\|Office Automation]].\
3		-	\
4		-	\
	2	+
5	3		=Excel= Alle Möglichkeiten der Excelautomation aufzuzeigen ist nicht möglich ich hoffe aber für jeden Bedarf Anregungen gefunden zu haben.\
6	4		Excel ist zu dem die automatisierungsfreundlichste Software von Microsoft.\
7	5		Wenn Sie Umlaute usw. verwenden, dann sollten Sie wissen, dass Excel UTF16 codierte Strings verwendet.\
8	6		Für die Oleautomation muss die Unit ComObj eingebunden werden.\
9	7		Für die Verwendung von Umlauten usw. muss die Unit lclproc eingebunden werden.\
10		-	\
	8	+
11	9		==Speicherplatz reservieren==
12	10
13	11		``` pascal
14	12		var
15	13		varXLApp: oleVariant; // wird für die Adressierung des Programms Excel verwedet
16	14		varXLWb: oleVariant; // wird für die Adressierung des Exceldatei verwendet
17	15		wstrUebergabe: WideString; // Hilfsvariable (wird z. B. für Umlaute usw. benötigt)
18	16		wstrRange: WideString // Hilfsvariable für eine Range
19	17		```
20	18
21		-	\
22		-
23	19		## Excel OleObjekt erstellen
24	20
25	21		``` pascal
26	22		uses
27	23		comobj;
28	24
29	25		begin
30	26		...
31	27		try
32	28		varXLApp := CreateOleObject('Excel.Application'); // erstellt das Excelobjekt
33	29		except
34	30		WriteLn('MS Excel kann nicht gestartet werden.'); // Fehlerbehandlung
35	31		end;
36	32		...
37	33		end;
38	34		```
39	35
40		-	\
41		-
42	36		## Excel beenden und den Speicher freigeben
43	37
44	38		``` pascal
45	39		begin
46	40		...
47	41		varXLApp.Quit;
48	42		varXLApp := UnAssigned; //Der Speicher muss am Ende wieder freigegeben werden, sonst entstehen Speicherlecks
49	43		...
50	44		end;
51	45		```
52	46
53		-	\
54	47		==Excel Version ermitteln==
55	48
56	49		``` pascal
57	50		begin
58	51		...
59	52		ShowMessage(varXLApp.Version);
60	53		...
61	54		end;
62	55		```
63	56
64		-	\
65	57		==Fehlermeldungen und Warnungen deaktivieren== Das Dekativieren von bestimmten Fehlermeldungen und Warnungen kann die Softwaresteuerung vereinfachen.
66	58
67	59		``` pascal
68	60		begin
69	61		...
70	62		varXLApp.DisplayAlerts := False; // schaltet diverse Fehlermeldungen von Excel aus
71	63		...
72	64		end;
73	65		```
74	66
75		-	\
76	67		==Sichtbarkeit von Excel steuern== Für Excel 2003 und älter gilt, dass das Unterdrücken der Anzeige die Verarbeitungsgeschwindigkeit beschleunigt.\
77	68		Für alle Excelversionen gilt, dass es das das Flackern des Bildschirms verhindert.
78	69
79	70		``` pascal
80	71		begin
81	72		...
82	73		varXLApp.Visible := False; // macht Excel unsichtbar
83	74		varXLApp.ScreenUpdating := False; // schaltet das ScreenUpdating von Excel aus
84	75
85	76		varXLApp.ScreenUpdating := True; // schaltet das ScreenUpdating von Excel ein
86	77		varXLApp.Visible := True; // macht Excel sichtbar
87	78		...
88	79		end;
89	80		```
90	81
91		-	\
92		-
93	82		# Workbooks
94	83
95	84		## Workbook (Datei) öffnen
96	85
97	86		Öffnet eine vorhandene Datei.\
98	87
99	88		``` pascal
100	89		begin
101	90		...
102	91		varXLApp.Workbooks.Open(strPfad); // öffnet die Exceldatei (Pfad: maximal 255 Zeichen)
103	92
104	93		// Alternative:
105	94		// öffnet ein vorhandenes Workbook (Exceldatei) und weist seine Speicheradresse
106	95		// der Variablen varXLWb zu. Diese Variable ermöglicht eine kürzere Schreibweise
107	96		// und eindeutige (direkte) Ansprache des Dokuments.
108	97		// Das ist besonders dann hilfreich, wenn man mit mehreren Exceldateien gleichzeitig arbeitet.
109	98		varXLWb := varXLApp.Workbooks.Open(strPfad);
110	99		...
111	100		end;
112	101		```
113	102
114		-	\
115	103		==Workbook (Datei) einfügen== Erstellt eine neue Datei.\
116	104
117	105		``` pascal
118	106		begin
119	107		...
120	108		varXLApp.Workbooks.Add; // fügt ein neues Workbook ein
121	109		...
122	110		end;
123	111		```
124	112
125		-	\
126	113		==Workbook speichern==
127	114
128	115		``` pascal
129	116		begin
130	117		...
131	118		varXLApp.Workbooks[1].Save; // speichert ein Worksheet über seinen Index
132	119		varXLApp.Workbooks['Test.xls'].Save; // speicher ein Worksheet über seinen Namen
133	120		...
134	121		end;
135	122		```
136	123
137		-	\
138	124		==Workbook unter neuem Namen speichern==
139	125
140	126		``` pascal
141	127		begin
142	128		...
143	129		varXLApp.Workbooks[1].SaveAs('D:\Test.xls', varXLApp.Workbooks[1].fileformat);
144	130		...
145	131		end;
146	132		```
147	133
148		-	\
149	134		==Workbook schliessen==
150	135
151	136		``` pascal
152	137		begin
153	138		...
154	139		varXLApp.Workbooks[1].Close;
155	140		...
156	141		end;
157	142		```
158	143
159		-	\
160	144		==Name des aktiven Workbooks ermitteln==
161	145
162	146		``` pascal
163	147		var
164	148		strName: String;
165	149		begin
166	150		...
167	151		// Ausgabe am Bildschirm
168	152		ShowMessage(varXLApp.ActiveWorkbook.Name);
169	153		// Alternative:
170	154		// speichern in einer Variable
171	155		strName := varXLApp.ActiveWorkbook.Name;
172	156		...
173	157		end;
174	158		```
175	159
176		-	\
177		-
178	160		# Worksheets
179	161
180	162		## Worksheet einfügen
181	163
182	164		``` pascal
183	165		begin
184	166		...
185	167		varXLApp.WorkBooks[1].WorkSheets.Add; //fügt ein neues WorkSheet hinzu
186	168		...
187	169		end;
188	170		```
189	171
190		-	\
191	172		==Worksheet umbenennen==
192	173
193	174		``` pascal
194	175		begin
195	176		...
196	177		varXLApp.WorkBooks[1].WorkSheets[1].Name := 'Neuer Name'; // benennt ein Worksheet über seinen Index um
197	178		varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Name := 'Neuer Name'; // benennt ein Worksheet über seinen Namen um
198	179		...
199	180		end;
200	181		```
201	182
202		-	\
203	183		==Worksheet löschen==
204	184
205	185		``` pascal
206	186		begin
207	187		...
208	188		varXLApp.WorkBooks[1].WorkSheets[3].Delete; // löscht ein Worksheet über seinen Index
209	189		varXLApp.WorkBooks[1].WorkSheets['Tabelle3'].Delete; // löscht ein Worksheet über seinen Namen
210	190		...
211	191		end;
212	192		```
213	193
214		-	\
215	194		==Worksheet aktivieren==
216	195
217	196		``` pascal
218	197		begin
219	198		...
220	199		varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Activate;
221	200		...
222	201		end;
223	202		```
224	203
225		-	\
226	204		==Hintergrundbild einfügen== Um ein Hintergrundbild in ein Worksheet einzufügen gibt es mehrere Möglichkeiten.\
227	205
228	206		``` pascal
229	207		begin
230	208		...
231	209		// Um das richtige Worksheet zu addressieren verwendet man den Index von Workbook und Worksheet
232	210		varXLApp.WorkBooks[1].WorkSheets[1].SetBackGroundPicture('D:\Testbild.JPG');
233	211		// Alternative
234	212		// Um das richtige Worksheet zu addressieren verwendet man die Namen von Workbook und Worksheet
235	213		varXLApp.WorkBooks['Test.xls'].WorkSheets['Tabelle2'].SetBackGroundPicture('D:\Testbild.JPG');
236	214		...
237	215		end;
238	216		```
239	217
240		-	\
241		-
242	218		# Zeilen und Spalten
243	219
244	220		## Zeilenbreite und Spaltenhöhe setzen
245	221
246	222		``` pascal
247	223		begin
248	224		...
249	225		// Setzt die Spaltenbreite für Spalte 1
250	226		varXLApp.WorkBooks[1].WorkSheets[1].Columns.Columns[1].ColumnWidth := 70;
251	227		// oder
252	228		varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Columns.Columns[1].ColumnWidth := 70;
253	229
254	230		// Setzt die Spaltenhöhe für Zeile 1
255	231		varXLApp.WorkBooks[1].WorkSheets[1].Rows.Rows[1].RowHeight := 60;
256	232		// oder
257	233		varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Rows.Rows[1].RowHeight := 60;
258	234		...
259	235		end;
260	236		```
261	237
262		-	\
263	238		==Zeilen löschen==
264	239
265	240		``` pascal
266	241		begin
267	242		...
268	243		// Löscht die Zeilen 8 bis 10 und verschiebt die darunter liegenden Zeilen nach oben
269	244		varXLWb.Worksheets['Tabelle2'].Rows['8:10'].Delete (xlUp);
270	245		...
271	246		end;
272	247		```
273	248
274		-	\
275		-
276	249		# Zellen und Ranges
277	250
278	251		## Autofilter setzen
279	252
280	253		``` pascal
281	254		begin
282	255		...
283	256		// setzt den Autofilter auf die erste Zeile
284	257		varXLApp.WorkBooks[1].WorkSheets[1].Rows.Rows[1].AutoFilter;
285	258		...
286	259		end;
287	260		```
288	261
289		-	\
290	262		==Rahmen zeichnen==
291	263
292	264		``` pascal
293	265		begin
294	266		...
295	267		// Zeichnet einen Rahmen um den Bereich "B2:C3"
296	268		// Der Parameter BorderAround hat folgende Syntax: BorderAround(Linienstil, Linenstärke, Farbe)
297	269		varXLApp.WorkBooks[1].WorkSheets[1].Range['B2:C3'].BorderAround(1, 2, 1);
298	270		...
299	271		end;
300	272		```
301	273
302		-	\
303	274		==Hyperlinks und URLS einfügen==
304	275
305	276		``` pascal
306	277		begin
307	278		...
308	279		// Fügt eine URL in Zelle "A2" in Sheet 2 ein
309	280		// Alternative 1
310	281		varXLApp.WorkBooks[1].Worksheets[2].Hyperlinks.add(
311	282		varXLApp.WorkBooks[1].Worksheets[2].Cells[2, 1], 'http://www.google.de');
312	283		// Alternative 2
313	284		varXLApp.WorkBooks[1].worksheets[2].Cells[2,1].Formula := '=HYPERLINK("http://www.google.de")';
314	285
315	286		// Fügt eine Emailadresse als Formel in Zelle "A3" in Sheet 2 ein
316	287		varXLApp.WorkBooks[1].worksheets[2].Cells[3,1].Formula := '=HYPERLINK("mailto:test.testmann.@test.com","Email")';
317	288		...
318	289		end;
319	290		```
320	291
321		-	\
322	292		==Wert einfügen== Um einen oder mehrere Werte in einen Bereich einzufügen gibt es verschiedene Möglichkeiten.\
323	293
324	294		``` pascal
325	295		begin
326	296		...
327	297		// Alternative 1
328	298		varXLApp.WorkBooks[1].WorkSheets[1].Range['A5'].Value := 3;
329	299		varXLApp.WorkBooks[1].WorkSheets[1].Range['A6'].Value := 3;
330	300		varXLApp.WorkBooks[1].WorkSheets[1].Range['A7'].Value := 3;
331	301
332	302		// Alternative 2
333	303		varXLApp.WorkBooks[1].WorkSheets[1].Range['A5', 'A7'].Value := 3;
334	304
335	305		// Alternative 3
336	306		wstrRange := UTF8ToUTF16('A' + IntToStr(5) + ':A' + IntToStr(7));
337	307		varXLApp.WorkBooks[1].WorkSheets[1].Range[wstrRange].Value := 3;
338	308
339	309		// Alternative 4
340	310		varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Range['A5', 'A7'].Value := 3;
341	311
342	312		// Alternative ...
343	313		...
344	314
345	315		// Übernimmt Umlaute usw. und benötigt dafür die Unit lclproc
346	316		varXLApp.WorkSheets[1].Range['A15'].Value := UTF8ToUTF16('Überlegung');
347	317		// Diese Vorgehensweise zur Verwendung von Umlauten ist sicherer
348	318		wstrUebergabe := UTF8ToUTF16('Überlegung');
349	319		varXLApp.WorkSheets[1].Range['A15'].Value := wstrUebergabe;
350	320
351	321		// Ermittelt die letzte Zeile und schreibt diese in Zeile 1 der Spalte F
352	322		varXLWb.Worksheets['Tabelle2'].Range['F1'].Value :=
353	323		varXLWb.Worksheets['Tabelle2'].UsedRange.SpecialCells(xlCellTypeLastCell).Row;
354	324		// schreibt Text in die Zeile 1 der Spalte B
355	325		varXLWb.Worksheets['Tabelle2'].Cells[1, 2].Value := 'Test';
356	326		...
357	327		end;
358	328		```
359	329
360		-	\
361		-
362	330		## Formel einfügen
363	331
364	332		``` pascal
365	333		begin
366	334		...
367	335		// Alternative 1
368	336		varXLApp.WorkBooks[1].worksheets[2].Cells[6,3].Formula := '=Sum(A5:A7)';
369	337		// Alternative 2
370	338		varXLApp.WorkBooks[1].WorkSheets[2].Range['C6'].Formula := '=Sum(A5:A7)';
371	339		...
372	340		end;
373	341		```
374	342
375		-	\
376	343		==Arbeiten mit Schriften==
377	344
378	345		``` pascal
379	346		begin
380	347		...
381	348		// Legt die Schriftart fest
382	349		varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Name := 'Arial';
383	350		// Legt die Schriftgröße fest
384	351		varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Size := 20;
385	352		// Legt die Fettschrift fest
386	353		varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Bold := True;
387	354		//Legt die Kursivschrift fest
388	355		varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Italic := True;
389	356		// Unterstreicht den Eintrag
390	357		varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Underline := True;
391	358		...
392	359		end;
393	360		```
394	361
395		-	\
396		-
397	362		# Chart erstellen
398	363
399	364		Die Beispiele gehen davon aus, dass das Excelobjekt (varXLApp) bereits existiert und die Exceldatei geöffnet ist.\
400	365		==Chart Speicher reservieren==
401	366
402	367		``` pascal
403	368		var
404	369		varDiagramm: OleVariant;
405	370		```
406	371
407		-	\
408	372		==Chart Speicher freigeben==
409	373
410	374		``` pascal
411	375		begin
412	376		...
413	377		varDiagramm := UnAssigned;
414	378		...
415	379		end;
416	380		```
417	381
418		-	\
419	382		==Chart Objekt erstellen==
420	383
421	384		``` pascal
422	385		begin
423	386		...
424	387		varDiagramm := varXLApp.Charts.Add; // Fügt ein Chart ein
425	388		...
426	389		end;
427	390		```
428	391
429		-	\
430	392		==Chart aktivieren==
431	393
432	394		``` pascal
433	395		begin
434	396		...
435	397		varDiagramm.Activate; // Aktiviert das Chart
436	398		...
437	399		end;
438	400		```
439	401
440		-	\
441	402		==Chart Diagramtyp festlegen==
442	403
443	404		``` pascal
444	405		begin
445	406		...
446	407		varDiagramm.ChartType := xlColumnClustered; // Legt den Diagramtyp fest
447	408		...
448	409		end;
449	410		```
450	411
451		-	\
452	412		==Chart Datenherkunft (Datenquelle) festlegen==
453	413
454	414		``` pascal
455	415		begin
456	416		...
457	417		varDiagramm.SetSourceData (Source := varXLApp.WorkSheets['Tabelle1'].Range['A1:E13'],
458	418		PlotBy := xlColumns); // Legt die Datenherkunft (das Excelsheet und den Bereich im Excelsheet) fest
459	419		...
460	420		end;
461	421		```
462	422
463		-	\
464	423		==Chart verschieben==
465	424
466	425		``` pascal
467	426		begin
468	427		...
469	428		// Diagramm im selben Tabellenblatt wie die Datentabelle.
470	429		varDiagramm.Location (Where := xlLocationAsObject, Name:= 'Tabelle1');
471	430		...
472	431		end;
473	432		```
474	433
475		-	\
476		-
477	434		## Chart Titel
478	435
479	436		``` pascal
480	437		begin
481	438		...
482	439		varXLApp.Worksheets[1].ChartObjects[1].Chart.HasTitle := True; // Legt fest, dass das Chart einen Titel haben darf
483	440		varXLApp.Worksheets[1].ChartObjects[1].Chart.ChartTitle
484	441		.Characters.Text := 'Test'; // Legt den Namen des Chart Titels fest
485	442		varXLApp.Worksheets[1].ChartObjects[1].Chart.ChartTitle
486	443		.Font.Color := vbRed; // Legt die Schriftfarbe des Diagrammtitels fest
487	444		varXLApp.Worksheets[1].ChartObjects[1].Chart.ChartTitle
488	445		.Interior.Color := vbCyan; // Legt die Hintergrundarbe des Diagrammtitels fest
489	446		...
490	447		end;
491	448		```
492	449
493		-	\
494		-
495	450		## Chart Achsenbeschriftung
496	451
497	452		``` pascal
498	453		begin
499	454		...
500	455		// Legt fest, dass das Chart Achsen hat
501	456		varXLApp.Worksheets[1].ChartObjects[1].Chart.HasAxis(xlCategory) := True;
502	457
503	458		// Legt die Schriftfarbe der Achsenkategorie fest
504	459		varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlCategory).TickLabels
505	460		.Font.Color := vbBlue;
506	461
507	462		// Legt fest, dass das Chart eine Achsenbeschriftung haben darf
508	463		varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlValue).HasTitle:= True;
509	464
510	465		// Legt den Achsentitel fest
511	466		// Ermöglicht das Schreiben des Eurozeichens
512	467		varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes[xlValue].AxisTitle
513	468		.Characters.Text := UTF8ToUTF16('€');
514	469
515	470		// Diese Schreibweise des Eurozeichens ist sicherer
516	471		wstrUebergabe := UTF8ToUTF16('€');
517	472		varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes[xlValue].AxisTitle
518	473		.Characters.Text := wstrUebergabe;
519	474
520	475		// Legt die Schriftfarbe des Achsentitels fest
521	476		varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlValue).AxisTitle
522	477		.Font.Color := vbBlue;
523	478
524	479		// Legt die Schriftgrösse des Achsentitels fest
525	480		varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlValue).AxisTitle
526	481		.Font.Size := 12;
527	482		...
528	483		end;
529	484		```
530		-
531		-	\
532	485
533	486		## Chart Legende
534	487
535	488		``` pascal
536	489		begin
537	490		...
538	491		//Legt die Beschriftung des ersten Elements der Chartlegende fest
539	492		varXLApp.Worksheets[1].ChartObjects[1].Chart.SeriesCollection(1)
540	493		.Name := '="Eins"';
541	494		...
542	495		end;
543	496		```
544	497
545	498		# Auszug aus den Excelkonstanten
546	499
547	500		``` pascal
548	501		unit uXLConst;
549	502
550	503		interface
551	504
552	505		const
553	506		// Klasse XlSheetType
554	507		xlChart = -4109;
555	508		xlDialogSheet = -4116;
556	509		xlExcel4IntlMacroSheet = 4;
557	510		xlExcel4MacroSheet = 3;
558	511		xlWorksheet = -4167;
559	512
560	513		// Klasse XlWBATemplate
561	514		xlWBATChart = -4109;
562	515		xlWBATExcel4IntlMacroSheet = 4;
563	516		xlWBATExcel4MacroSheet = 3;
564	517		xlWBATWorksheet = -4167;
565	518
566	519		// Klasse XlPattern
567	520		xlPatternAutomatic = -4105;
568	521		xlPatternChecker = 9;
569	522		xlPatternCrissCross = 16;
570	523		xlPatternDown = -4121;
571	524		xlPatternGray16 = 17;
572	525		xlPatternGray25 = -4124;
573	526		xlPatternGray50 = -4125;
574	527		xlPatternGray75 = -4126;
575	528		xlPatternGray8 = 18;
576	529		xlPatternGrid = 15;
577	530		xlPatternHorizontal = -4128;
578	531		xlPatternLightDown = 13;
579	532		xlPatternLightHorizontal = 11;
580	533		xlPatternLightUp = 14;
581	534		xlPatternLightVertical = 12;
582	535		xlPatternNone = -4142;
583	536		xlPatternSemiGray75 = 10;
584	537		xlPatternSolid = 1;
585	538		xlPatternUp = -4162;
586	539		xlUp = -4162;
587	540		xlPatternVertical = -4166;
588	541
589	542		// Klasse XlBordersIndex
590	543		xlInsideHorizontal = 12;
591	544		xlInsideVertical = 11;
592	545		xlDiagonalDown = 5;
593	546		xlDiagonalUp = 6;
594	547		xlEdgeBottom = 9;
595	548		xlEdgeLeft = 7;
596	549		xlEdgeRight = 10;
597	550		xlEdgeTop = 8;
598	551
599	552		// Klasse XlLineStyle
600	553		xlContinuous = 1;
601	554		xlDash = -4115;
602	555		xlDashDot = 4;
603	556		xlDashDotDot = 5;
604	557		xlDot = -4118;
605	558		xlDouble = -4119;
606	559		xlSlantDashDot = 13;
607	560		xlLineStyleNone = -4142;
608	561
609	562		// Klasse XlChartType
610	563		xlColumnClustered = 51;
611	564		xlColumnStacked = 52;
612	565		xlColumnStacked100 = 53;
613	566		xl3DColumnClustered = 54;
614	567		xl3DColumnStacked = 55;
615	568		xl3DColumnStacked100 = 56;
616	569		xlBarClustered = 57;
617	570		xlBarStacked = 58;
618	571		xlBarStacked100 = 59;
619	572		xl3DBarClustered = 60;
620	573		xl3DBarStacked = 61;
621	574		xl3DBarStacked100 = 62;
622	575		xlLineStacked = 63;
623	576		xlLineStacked100 = 64;
624	577		xlLineMarkers = 65;
625	578		xlLineMarkersStacked = 66;
626	579		xlLineMarkersStacked100 = 67;
627	580		xlPieOfPie = 68;
628	581		xlPieExploded = 69;
629	582		xl3DPieExploded = 70;
630	583		xlBarOfPie = 71;
631	584		xlXYScatterSmooth = 72;
632	585		xlXYScatterSmoothNoMarkers = 73;
633	586		xlXYScatterLines = 74;
634	587		xlXYScatterLinesNoMarkers = 75;
635	588		xlAreaStacked = 76;
636	589		xlAreaStacked100 = 77;
637	590		xl3DAreaStacked = 78;
638	591		xl3DAreaStacked100 = 79;
639	592		xlDoughnutExploded = 80;
640	593		xlRadarMarkers = 81;
641	594		xlRadarFilled = 82;
642	595		xlSurface = 83;
643	596		xlSurfaceWireframe = 84;
644	597		xlSurfaceTopView = 85;
645	598		xlSurfaceTopViewWireframe = 86;
646	599		xlBubble = 15;
647	600		xlBubble3DEffect = 87;
648	601		xlStockHLC = 88;
649	602		xlStockOHLC = 89;
650	603		xlStockVHLC = 90;
651	604		xlStockVOHLC = 91;
652	605		xlCylinderColClustered = 92;
653	606		xlCylinderColStacked = 93;
654	607		xlCylinderColStacked100 = 94;
655	608		xlCylinderBarClustered = 95;
656	609		xlCylinderBarStacked = 96;
657	610		xlCylinderBarStacked100 = 97;
658	611		xlCylinderCol = 98;
659	612		xlConeColClustered = 99;
660	613		xlConeColStacked = 100;
661	614		xlConeColStacked100 = 101;
662	615		xlConeBarClustered = 102;
663	616		xlConeBarStacked = 103;
664	617		xlConeBarStacked100 = 104;
665	618		xlConeCol = 105;
666	619		xlPyramidColClustered = 106;
667	620		xlPyramidColStacked = 107;
668	621		xlPyramidColStacked100 = 108;
669	622		xlPyramidBarClustered = 109;
670	623		xlPyramidBarStacked = 110;
671	624		xlPyramidBarStacked100 = 111;
672	625		xlPyramidCol = 112;
673	626		xl3DColumn = -4100;
674	627		xlLine = 4;
675	628		xl3DLine = -4101;
676	629		xl3DPie = -4102;
677	630		xlPie = 5;
678	631		xlXYScatter = -4169;
679	632		xl3DArea = -4098;
680	633		xlArea = 1;
681	634		xlDoughnut = -4120;
682	635		xlRadar = -4151;
683	636
684	637		// Klasse Constants
685	638		xlAll = -4104;
686	639		xlAutomatic = -4105;
687	640		xlBoth = 1;
688	641		xlCenter = -4108;
689	642		xlChecker = 9;
690	643		xlCircle = 8;
691	644		xlCorner = 2;
692	645		xlCrissCross = 16;
693	646		xlCross = 4;
694	647		xlDiamond = 2;
695	648		xlDistributed = -4117;
696	649		xlDoubleAccounting = 5;
697	650		xlFixedValue = 1;
698	651		xlFormats = -4122;
699	652		xlGray16 = 17;
700	653		xlGray8 = 18;
701	654		xlGrid = 15;
702	655		xlHigh = -4127;
703	656		xlInside = 2;
704	657		xlJustify = -4130;
705	658		xlLightDown = 13;
706	659		xlLightHorizontal = 11;
707	660		xlLightUp = 14;
708	661		xlLightVertical = 12;
709	662		xlLow = -4134;
710	663		xlManual = -4135;
711	664		xlMinusValues = 3;
712	665		xlModule = -4141;
713	666		xlNextToAxis = 4;
714	667		xlNone = -4142;
715	668		xlNotes = -4144;
716	669		xlOff = -4146;
717	670		xlOn = 1;
718	671		xlPercent = 2;
719	672		xlPlus = 9;
720	673		xlPlusValues = 2;
721	674		xlSemiGray75 = 10;
722	675		xlShowLabel = 4;
723	676		xlShowLabelAndPercent = 5;
724	677		xlShowPercent = 3;
725	678		xlShowValue = 2;
726	679		xlSimple = -4154;
727	680		xlSingle = 2;
728	681		xlSingleAccounting = 4;
729	682		xlSolid = 1;
730	683		xlSquare = 1;
731	684		xlStar = 5;
732	685		xlStError = 4;
733	686		xlToolbarButton = 2;
734	687		xlTriangle = 3;
735	688		xlGray25 = -4124;
736	689		xlGray50 = -4125;
737	690		xlGray75 = -4126;
738	691		xlBottom = -4107;
739	692		xlLeft = -4131;
740	693		xlRight = -4152;
741	694		xlTop = -4160;
742	695		xl3DBar = -4099;
743	696		xl3DSurface = -4103;
744	697		xlBar = 2;
745	698		xlColumn = 3;
746	699		xlCombination = -4111;
747	700		xlCustom = -4114;
748	701		xlDefaultAutoFormat = -1;
749	702		xlMaximum = 2;
750	703		xlMinimum = 4;
751	704		xlOpaque = 3;
752	705		xlTransparent = 2;
753	706		xlBidi = -5000;
754	707		xlLatin = -5001;
755	708		xlContext = -5002;
756	709		xlLTR = -5003;
757	710		xlRTL = -5004;
758	711		xlVisualCursor = 2;
759	712		xlLogicalCursor = 1;
760	713		xlSystem = 1;
761	714		xlPartial = 3;
762	715		xlHindiNumerals = 3;
763	716		xlBidiCalendar = 3;
764	717		xlGregorian = 2;
765	718		xlComplete = 4;
766	719		xlScale = 3;
767	720		xlClosed = 3;
768	721		xlColor1 = 7;
769	722		xlColor2 = 8;
770	723		xlColor3 = 9;
771	724		xlConstants = 2;
772	725		xlContents = 2;
773	726		xlBelow = 1;
774	727		xlCascade = 7;
775	728		xlCenterAcrossSelection = 7;
776	729		xlChart4 = 2;
777	730		xlChartSeries = 17;
778	731		xlChartShort = 6;
779	732		xlChartTitles = 18;
780	733		xlClassic1 = 1;
781	734		xlClassic2 = 2;
782	735		xlClassic3 = 3;
783	736		xl3DEffects1 = 13;
784	737		xl3DEffects2 = 14;
785	738		xlAbove = 0;
786	739		xlAccounting1 = 4;
787	740		xlAccounting2 = 5;
788	741		xlAccounting3 = 6;
789	742		xlAccounting4 = 17;
790	743		xlAdd = 2;
791	744		xlDebugCodePane = 13;
792	745		xlDesktop = 9;
793	746		xlDirect = 1;
794	747		xlDivide = 5;
795	748		xlDoubleClosed = 5;
796	749		xlDoubleOpen = 4;
797	750		xlDoubleQuote = 1;
798	751		xlEntireChart = 20;
799	752		xlExcelMenus = 1;
800	753		xlExtended = 3;
801	754		xlFill = 5;
802	755		xlFirst = 0;
803	756		xlFloating = 5;
804	757		xlFormula = 5;
805	758		xlGeneral = 1;
806	759		xlGridline = 22;
807	760		xlIcons = 1;
808	761		xlImmediatePane = 12;
809	762		xlInteger = 2;
810	763		xlLast = 1;
811	764		xlLastCell = 11;
812	765		xlList1 = 10;
813	766		xlList2 = 11;
814	767		xlList3 = 12;
815	768		xlLocalFormat1 = 15;
816	769		xlLocalFormat2 = 16;
817	770		xlLong = 3;
818	771		xlLotusHelp = 2;
819	772		xlMacrosheetCell = 7;
820	773		xlMixed = 2;
821	774		xlMultiply = 4;
822	775		xlNarrow = 1;
823	776		xlNoDocuments = 3;
824	777		xlOpen = 2;
825	778		xlOutside = 3;
826	779		xlReference = 4;
827	780		xlSemiautomatic = 2;
828	781		xlShort = 1;
829	782		xlSingleQuote = 2;
830	783		xlStrict = 2;
831	784		xlSubtract = 3;
832	785		xlTextBox = 16;
833	786		xlTiled = 1;
834	787		xlTitleBar = 8;
835	788		xlToolbar = 1;
836	789		xlVisible = 12;
837	790		xlWatchPane = 11;
838	791		xlWide = 3;
839	792		xlWorkbookTab = 6;
840	793		xlWorksheet4 = 1;
841	794		xlWorksheetCell = 3;
842	795		xlWorksheetShort = 5;
843	796		xlAllExceptBorders = 6;
844	797		xlLeftToRight = 2;
845	798		xlTopToBottom = 1;
846	799		xlVeryHidden = 2;
847	800		xlDrawingObject = 14;
848	801
849	802		// Klasse XLPlacement
850	803		xlMoveAndSize = 1;
851	804		xlMove = 2;
852	805		xlFreeFloating = 3;
853	806
854	807		// Klasse XlRowCol
855	808		xlRows = 1;
856	809		xlColumns = 2;
857	810
858	811		// Klasse XlChartLocation
859	812		xlLocationAsNewSheet = 1;
860	813		xlLocationAsObject = 2;
861	814		xlLocationAutomatic = 3;
862	815
863	816		// Klasse XlAxisType
864	817		xlCategory = 1;
865	818		xlValue = 2;
866	819		xlSeriesAxis = 3;
867	820
868	821		// Klasse ColorConstants
869	822		vbBlack = 0;
870	823		vbBlue = 16711680;
871	824		vbCyan = 16776960;
872	825		vbGreen = 65280;
873	826		vbMagenta = 16711935;
874	827		vbRed = 255;
875	828		vbWhite = 16777215;
876	829		vbYellow = 65535;
877	830
878	831		// Klasse XlCellType
879	832		xlCellTypeAllFormatConditions = -4172;
880	833		xlCellTypeAllValidation = -4174;
881	834		xlCellTypeBlanks = 4;
882	835		xlCellTypeComments = -4144;
883	836		xlCellTypeConstants = 2;
884	837		xlCellTypeFormulas = -4123;
885	838		xlCellTypeLastCell = 11;
886	839		xlCellTypeSameFormatConditions = -4173;
887	840		xlCellTypeSameValidation = -4175;
888	841		xlCellTypeVisible = 12;
889	842
890	843		// Klasse XLAxisGroup
891	844		xlPrimary = 1;
892	845		xlSecondary = 2;
893	846
894	847		implementation
895	848
896	849		end.
897	850		```
898	851
899	852		---
900	853		From the Free Pascal wiki, page "ExcelAutomation/de", as it stood on 2020-02-14 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
901	854		Category: Tutorials/de

Back to history