Скачать: CL | DM;

Как в Excele ширину колонок задавать в пикслях?   Найти похожие ветки 

← →
OlegM   (2005-03-16 14:49) [0]

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

---

← →
GanibalLector ©   (2005-03-20 02:50) [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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c