Программирование на Delphi

FAQ VCL
Работа с MS Office\Word

:: Меню ::

:: На главную ::

:: FAQ ::

:: Заметки ::

:: Практика ::

:: Win API ::

:: Проекты ::

:: Скачать ::

:: Секреты ::

:: Ссылки ::

:: Сервис ::

:: Написать ::

:: MVP ::

:: RSS ::

Как задать ширину столбца в Excel?


var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E{.WorkBooks[1]}.WorkSheets[1].Columns[1].ColumnWidth := 140;
end;

Как задать высоту строки в Excel?


var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E{.WorkBooks[1]}.WorkSheets[1].Rows[1].RowHeight := 34;
end;

Как отобразить вертикальный разделитель?


var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E.ActiveWindow.SplitColumn := 1; // кол-во отделяемых колонок
end;

Как отобразить горизонтальный разделитель?


var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E.ActiveWindow.SplitRow := 1; // кол-во отделяемых строк
end;

Как "заморозить" несколько колонок?


var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E.ActiveWindow.SplitColumn := 2; // кол-во замораживаемых колонок
   E.ActiveWindow.SplitRow := 0;
   E.ActiveWindow.FreezePanes := True;
end;

Как "заморозить" несколько строк?


var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E.ActiveWindow.SplitColumn := 0;
   E.ActiveWindow.SplitRow := 2; // кол-во замораживаемых строк
   E.ActiveWindow.FreezePanes := True;
end;

Как "заморозить" диапазон ячеек?


var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E.ActiveWindow.SplitColumn := 2; // кол-во замораживаемых колонок
   E.ActiveWindow.SplitRow := 2; // кол-во замораживаемых строк
   E.ActiveWindow.FreezePanes := True;
end;

Как снять "заморозку"?


var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E.ActiveWindow.FreezePanes := False;
end;

Как добавить формулу в ячейку?


var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E{.WorkBooks[1]}.WorkSheets[1].Range['A12'].Formula := '=A2+A4';
end;

Как скрыть/показать StatusBar?


var
  E: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
begin
   E.DisplayStatusBar := False; // Скрыть
   E.DisplayStatusBar := True;  // Показать
end;

При использовании материала - ссылка на сайт обязательна