Excel de raporlama hakkında

[zeynel63]

Merhaba arkadaşlar.
Yaptığım programda verilerimi excele aktarabiliyorum.ama bir konuda sorun yaşadım.bu sorunumda bana yardımcı olursanız sevinirim.sorun şu:
verileri excele aktardıktan sonra A1 ile W1 arasındaki hücrelerin metin yönünü 90 Derece çevirsin.
ayrıca yine A1 iel W1 arasındaki hücrelerde Metni Kaydır sın.
yardım edecek olan arkadaşlara şimdiden teşekkür ederim.

[SimaWB]

Kod: Tümünü seç

WorkSheet.Range['A1','W1'].Orientation := xlUpward;

"Metni Kaydır"ı anlamadım...

[xxxjedixxx]

Kod: Tümünü seç

uses comobj; // eklenmeli
...
procedure TForm1.Button1Click(Sender: TObject);
var ExcelApp, Sheet: OleVariant;
begin
  try
    ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.Visible := True;
  except
    ShowMessage('Excel başlatılamıyor.');
    Exit;
  end;
  ExcelApp.WorkBooks.Add;
  Sheet := ExcelApp.WorkBooks[ExcelApp.WorkBooks.Count].WorkSheets[1];
  Sheet.Range['A1:G1'].Value := 'Deneme'; // örnek metin
  Sheet.Range['A1:D1'].Orientation := 90; // 90 derece
  Sheet.Range['A1:D1'].WrapText := True; // kaydırma
end;

[zeynel63]

cevap veren arkadaşlara teşekkürler.pazartesi hemen verdiğiniz kodları denyeceğim.büyük bir dertten kurtardınız beni

[zeynel63]

pazartesiyi bekleyemedim hemen denedim.kodlar çalıştı.
Allah razı olsun teşekkürler arkadaşlar.