Изменение размера ячеек в Excel из delphi???

← →
cad2206 (2004-09-08 15:44) [0]

Подскажите, как?
Строка типа ExcelWorksheet.Rows.Height:=67 вызывает ошибку:
cannot assign to a resd-only property

← →
Антоныч (2004-09-08 15:56) [1]

Высота и ширина ячейки

Чтобы формировать вид документа в процессе его создания, недостаточно только функций записи информации в ячейки, необходимо также изменять ее визуальные параметры. Самое простое, с чего можно начать, - изменение ширины столбцов и высоты строк. Доступ к ширине столбцов можно получить, используя коллекцию Columns. Используя номер колонки в буквенном или числовом формате и свойство коллекции ColumnWidth, можно изменить ширину столбца или назначить ее. Определенная ниже функция, реализованная на Delphi, устанавливает ширину столбца.

Function SetColumnWidth (sheet:variant;
column:variant;width:real):boolean;
begin
SetColumnWidth:=true;
try
ExcelApplication.ActiveWorkbook.Sheets.Item[sheet].Columns
[column].ColumnWidth:=width;
except
SetColumnWidth:=false;
end;
End;
Для определения ширины столбца используйте следующий оператор: width:=ExcelApplication.ActiveWorkbook .Sheets.Item[sheet].Columns[column].ColumnWidth;

Доступ к высоте строк можно получить, используя коллекцию Rows. Назначая номер строки и свойство коллекции RowHeight, можно изменить высоту строки или назначить ее. Определенная ниже функция, реализованная на Delphi, устанавливает высоту строки.

Function SetRowHeight (sheet:variant;row:variant;
height:real):boolean;
begin
SetRowHeight:=true;
try
ExcelApplication.ActiveWorkbook.Sheets.Item[sheet].Rows[row].RowHeight:=height;
except
SetRowHeight:=false;
end;
End;
Для определения высоты строки используйте следующий оператор: height:=ExcelApplication.ActiveWorkbook.Sheets.Item[sheet].Rows[row].RowHeight;

Есть подробная документация по взаимодействию Delphi с Word и Excel. Могу выслать на мыло.

← →
cad2206 (2004-09-08 16:34) [2]

Антоныч, эта функция устанавливает размер для всех ячеек на странице, мне нужно отдельно для каждой ячейки...?

← →
BillyJeans (2004-09-08 17:34) [3]

а может отдельно для каждой строки???

← →
YurikGL © (2004-09-08 21:11) [4]

http://www.delphimaster.ru/cgi-bin/anketa.pl?id=1084962208

интересное о себе...

← →
DarkMan (2004-09-09 09:53) [5]

WorkSeet.Columns["B:B"].RowHeight := xx;

либо
WS.Range[WS.Cells[xx,yy],ExcWS.Cells[xx,yy]].Select;
ExcApp.Selection.RowHeight = xx;

← →
pavel_guzhanov (2004-09-09 13:01) [6]

var m_XLApp, Sheet, Colum, Row:Variant;
begin
m_XLApp:=CreateOleObject("Excel.Application"); //Запуск Excel
m_XLApp.Visible:=true; //видимый
m_XLApp.Workbooks.Add(-4167); // добавили книгу
m_XLApp.Workbooks[1].Worksheets[1].Name:="Список сотрудников";
Sheet:=m_XLApp.Workbooks[1].Worksheets["Список сотрудников"];
Sheet.PageSetup.Orientation:=xlLandscape;
Colum:=m_XLApp.Workbooks[1].Worksheets["Список сотрудников"].Columns; //столбцы
Row:=m_XLApp.Workbooks[1].Worksheets["Список сотрудников"].Rows; //строки
//ширина столбцов
Colum.Columns[1].ColumnWidth:=5;
Colum.Columns[2].ColumnWidth:=16;
Colum.Columns[3].ColumnWidth:=16;
Colum.Columns[4].ColumnWidth:=33;
Colum.Columns[5].ColumnWidth:=23;
Colum.Columns[6].ColumnWidth:=30;
end;

Изменение размера ячеек в Excel из delphi??? Найти похожие ветки