| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в Excele ширину колонок задавать в пикслях? [Delphi, Windows]

OlegM ©   (2005-03-16 14:49:00) 

Привет всем!
Вот собсно и все.

---

GanibalLector   (2005-03-20 02:50:00) [1]


procedure TForm1.Button1Click(Sender: TObject);
 var XLApp:Variant;
   i,Value1,Value2:Integer;
begin
XLApp:=CreateOleObject('Excel.Application');
 try
  XLApp.Visible:=true;
  XLApp.WorkBooks.Add;
  XLApp.WorkBooks[1].WorkSheets[1].Name:='Kharkov_GanibalLector';
  for i:=1 to 10 do
  begin
    Value1:=random(50)+1;
    Value2:=random(35)+1;
    XLApp.Workbooks[1].WorkSheets[1].Range['A:A'].ColumnWidth:=Value1;
    XLApp.Workbooks[1].WorkSheets[1].Range['1:1'].RowHeight  :=Value2;
    XLApp.WorkBooks[1].Sheets[1].Cells[1,1]:=
    'Ширина='+IntToStr(Value1)+' Высота='+IntToStr(Value2);
    sleep(300);
  end;
 finally
   XLApp:=UnAssigned;
 end;
end;


---

Наверх