Шаг 14.
Вкладка Servers. Компонент TExcelWorksheet

    На этом шаге мы рассмотрим компонент TExcelWorksheet.

    Компонент TExcelWorksheet - сервер, позволяющий работать с отдельными листами отдельной книги в Excel. Основные 4 свойства аналогичны свойствам TWordApplication.

    Рассмотрим некоторые свойства и методы данного компонента.

ExcelWorksheet1.Delete(lcid);  //lcid= LOCALE_SYSTEM_DEFAULT
ExcelWorksheet1.Shapes.AddPicture('полный путь доступа к картинке',1,1,10,4,30,50);
где 10 - отступ слева, 4 - отступ сверху, 30 – ширина, 50 – высота.
1.
ExcelWorksheet1.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
// Количество строк и столбцов.
Caption:='Строк: '+inttostr(ExcelApplication1.ActiveCell.Row)+' Столбцов: '+ 
                              inttostr(ExcelApplication1.ActiveCell.Column);
2.
// Количество столбцов.
caption:=inttostr(ExcelWorksheet1.UsedRange[0].Columns.Count );
//Количество строк.
caption:=inttostr(ExcelWorksheet1.UsedRange[0].Rows.Count );
ExcelWorksheet1.PageSetup.Orientation:=xlLandscape;//Альбомная.
ExcelWorksheet1.PageSetup.Orientation:=xlPortrait; //Книжная.
ExcelWorksheet1.Name:='Имя листа';
ExcelWorksheet1.Shapes.AddLine(х1,у1,х2,у2);
где х1,у1 – координаты начала линии, х2,у2 – координаты конца линии.
ExcelWorksheet1.Shapes.AddShape(Type:Integer,х1,у1,х2,у2);
где type – задает тип фигуры, х1,у1 – координаты левого верхнего угла, х2,у2 – правого нижнего угла.

    Создадим приложение, иллюстрирующее данное свойство. На форме разместим две кнопки и компонент TRadioGroup, позволяющий выбирать фигуру для добавления в документ Microsoft Excel. Результат работы приложения можно увидеть на рисунке.


Рис.1. Графические вставки в Microsoft Excel

    Текст этого примера можно взять здесь.




Предыдущий шаг Содержание