Как изменять размер ячеек в Excel

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

Высота и ширина ячейкиЧтобы формировать вид документа в процессе его создания, недостаточно только функций записи информации в ячейки, необходимо также изменять ее визуальные параметры. Самое простое, с чего можно начать, — изменение ширины столбцов и высоты строк. Доступ к ширине столбцов можно получить, используя коллекцию 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. Могу выслать на мыло.

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

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

http://www.delphimaster.ru/cgi-bin/anketa.pl?id=1084962208интересное о себе...

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

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;

Наверх