VPF::Как управлять Excel из своей программы?

RST8

Дата 20.2.2005, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 232
Регистрация: 8.12.2004

Репутация: нет
Всего: 1

Собрался писать вопрос. и увидел так много информации по Excel на этом фроруме. Класно! smile

То чего я не нашел smile

1. Как установить параметры страницы? (ориенитацию листа, поля, масштаб при ечати на принтере)
2. Как в свойствах ячейки установить "переносить по словам"?
3. Построить диаграмму средствами Excel будет наверное очень сложно? (слишком много указывать параметров)

Буду рад всем получить ответы на эти вопросы. smile

Это сообщение отредактировал(а) RST8 - 20.2.2005, 17:00

--------------------

Посадка, с места которой можно уйти на собственных ногах, считается удачной!

<Spawn>

Дата 20.2.2005, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: нет
Всего: 64

Код


uses ..., ActiveX, ComObj, ExcelXP;

var
  Excel, WorkBook, WorkSheet: OleVariant;
begin
  Excel := CreateOleObject('Excel.Application');
  try
    WorkBook := Excel.WorkBooks.Add;
    WorkSheet := WorkBook.WorkSheets.Add;
    WorkSheet.PageSetup.Zoom := 50;
    WorkSheet.PageSetup.Orientation := xlPortrait;
    Excel.Visible := True;
  finally
    Excel := Unassigned;
  end;

Код


var
  Excel, WorkBook, WorkSheet: OleVariant;
begin
  Excel := CreateOleObject('Excel.Application');
  try
    WorkBook := Excel.WorkBooks.Add;
    WorkSheet := WorkBook.WorkSheets.Add;
    WorkSheet.Cells[1, 1].WrapText := True;
    WorkSheet.Cells[1, 1] := 'asdfadsfsadf';
    Excel.Visible := True;
  finally
    Excel := Unassigned;
  end;

Код


var
  Excel, WorkBook, WorkSheet, ChartObject, Rng: OleVariant;
  RangeStr: WideString;
begin
  Excel := CreateOleObject('Excel.Application');
  try
    WorkBook := Excel.WorkBooks.Add;
    WorkSheet := WorkBook.WorkSheets.Add;
    WorkSheet.Cells[1, 1] := 'Axis 1 Name';
    WorkSheet.Cells[2, 1] := 'Axis 2 Name';
    WorkSheet.Cells[1, 2] := 12;
    WorkSheet.Cells[2, 2] := 15;
    ChartObject := WorkSheet.ChartObjects.Add(100, 100, 400, 400);
    RangeStr := 'B1..B2';
    Rng := WorkSheet.Range[RangeStr];
    ChartObject.Chart.ChartWizard(Rng, 2);
    ChartObject.Chart.HasTitle := True;
    ChartObject.Chart.ChartTitle.Text := 'Test Chart';
    ChartObject.Chart.Axes(1).HasTitle := True;
    ChartObject.Chart.Axes(1).AxisTitle.Text := 'Axis Text';

    RangeStr := 'A1..A2';
    Rng := WorkSheet.Range[RangeStr];
    ChartObject.Chart.Axes(1).CategoryNames := Rng;

    Excel.Visible := True;
  finally
    Excel := Unassigned;
  end;

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

RST8

Дата 20.2.2005, 19:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 232
Регистрация: 8.12.2004

Репутация: нет
Всего: 1

Спасибо, спасибо smile

Щас попробую. smile

Только вот касательно первого вопроса. Как неуказывая масштаб указать "разместить на 1 странице"? Ведь для таблиц разного размера заранее незнаеш какой ставить масштаб.

--------------------

Посадка, с места которой можно уйти на собственных ногах, считается удачной!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »