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

Изменение размера ячеек в 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;

---

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

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



Память: 0.46 MB
Время: 0.038 c