Spaltenbreite in Excel

[Ulf346C]

ich bin gerade dabei mit D5 eine Datenausgabe nach Excel zu programmieren.
Das funktionier soweit schon ganz gut, auch das Formatieren von Zellen:

Code:

    
  with WS.Range['B1', 'B1'].Font do
    begin
      Size := 22;
      Name := 'Times New Roman';
      FontStyle := 'Bold';
    end;

Nur finde ich keine Möglichkeit, die Spaltenbreiten in der Excel-Tabelle
zu verändern.
Wer weiß Rat ?

[Treffnix]

Versuch mal

Delphi-Quellcode:

WS.Range['B1', 'B1'].EntireColumn.Width := Spaltenbreite

und schau dir auch mal

Delphi-Quellcode:

WS.Range['B1', 'B1'].EntireColumn.Autofit

an!
Letzteres passt die Spaltenbreite dem Text an. Vielleicht ist das ja schon das, was du suchst.

[Ulf346C]

Danke für die Antwort, aber leider funzt weder das Eine noch das Andere :(

[Treffnix]

Zumindest das Autofit habe ich schon selbst benutzt und es funktioniert. Was ist denn WS für ein Typ? TExcelsheet?

du könntest sonst höchstens nochmal

Delphi-Quellcode:

WS.Range['B1', 'B1'].EntireColumn.Columns.Autofit //bzw. .Width

probieren.

[Ulf346C]

*stirnklatsch*

Code:

   WS.Range['a1', 'c1'].EntireColumn.autofit;

funktioniert... :idea: man muß erst im Excel die Daten eintragen und DANN Autifit aktivieren
(bin nun mal nicht der große Excel Freak)

wäre ja auch zuviel verlangt wenn eine Funktion die Autofit heißt auch automatisch funktioniert :gruebel: naja, Microsoft eben

Danke für die Hilfe

Ulf

[Treffnix]

Naja, Excel kann ja nicht hellsehen, wie breit der Text wird, an den es die Spalten anpassen soll... :tongue: