Zellegröße von EXCEL bestimmen!

[Mucki]

Halo.

Ich möchte Werte aus einem StrinGrid an Excel übergeben,
klappt auch alles soweit.

Nur ist der Zelleninhalt manchmal etwas größer als die Zellengröße der Exceltabelle.

Kann ich die Ecxel Zellengröße aus Deplhi steuern?

Gruß Mucki

[trojaner]

Hallo,
kommt darauf an wie du Excel rufst.

Delphi-Quellcode:

    excel:=CreateOleObject('excel.Application');

      if length(ADODataSet2.FieldByName('AText').AsString) > 1 then
        Excel.Rows[27+i].RowHeight := 18;
      if length(ADODataSet2.FieldByName('AText').AsString) > 50 then
        Excel.Rows[27+i].RowHeight := 38;
      if length(ADODataSet2.FieldByName('AText').AsString) > 100 then
        Excel.Rows[27+i].RowHeight := 58;
      if length(ADODataSet2.FieldByName('AText').AsString) > 150 then
        Excel.Rows[27+i].RowHeight := 78;
      if length(ADODataSet2.FieldByName('AText').AsString) > 200 then
        Excel.Rows[27+i].RowHeight := 98;
      if length(ADODataSet2.FieldByName('AText').AsString) > 250 then
        Excel.Rows[27+i].RowHeight := 118;

ich mache das so, ist zwar Datenbank sollte aber auch mit Stringgrid gehen.
Gruss

[Mucki]

Probiere ich gleich mal aus, Danke!

[Mucki]

Hallo nochmal...

Ich habe es mal probiert aber diesen Befehl kennr die Automatisierung nicht,
so die Antwort.

Aber es muß doch irgendwie gehen!

Mit einem Befehl in der Art wie.
Excel.Cells[x,y].CellHeight := 38 Oder kann man ein bereits formatiertes Excel-Arbeitsblatt verwenden und
die Werte aus dem Grid hineinfügen?

Hat jemand eine Lösung

Gruß Mucki

[marabu]

Hallo,

ich würde mal nach den properties RowHeight, AutoSize und WrapText forschen. Ideal wäre es, wenn du Zugriff auf eine funktionierende Excel Online-Hilfe hättest.

Grüße vom marabu

[Mucki]

Wo finde ich diese properties RowHeight, AutoSize und WrapText?

Im Objektinspektor von... ?

[hmbg]

Soweit ich weiß findest du die eigenschaften eines OLE Objekts weder im OI noch in der Codevervollständigung.
Guck dir das hier mal an:
Excel über OLE-Automation steuern

Mir hat das sehr weitergeholfen, da ist eigentlich alles wichtige drin, ich glaub auch zur Lösung deines Problems.

mfg hmbg

[Mucki]

Das war wirklich ein Supertipp !!
Danke...