uses
OleServer, Activex, Office_TLB,Excel_TLB,Clipbrd;
...
var
Charts: TStringList; // Список Графиков (они же чарты, они же диаграммы)
function GetExcelChartImages(exlFileName: string; // Имя файла из которого вынимаем Графики
ChartList: TStrings; // В items кладем имена гравиков, в objects витмапы
StartExcelNewInstance: Boolean=False // True - Если мы хотим "собственный" экземпляр Excel
// False (по умолчанию) - Пытаемся прицепиться к
// запущенному Excel. Если такого нет - Запускаем
): Boolean;
implementation
function GetExcelChartImages(exlFileName: string; ChartList: TStrings; StartExcelNewInstance: Boolean=False): Boolean;
var
ExcelApp: TExcelApplication;
WB: _Workbook;
WBName: string;
xCharts: ChartObjects;
xChart: ChartObject;
Crt: OleVariant;
i,j: Integer;
BMP: TBitmap;
NeedCloseWb: Boolean;
begin
NeedCloseWb := False;
WBName := ExtractFileName(exlFileName); // берем имя рабочей книги откуда будем вынимать графики
ExcelApp := TExcelApplication.Create(nil); // Создаем объект TExcelApplication
if StartExcelNewInstance then
ExcelApp.ConnectKind := ckNewInstance
else
ExcelApp.ConnectKind := ckRunningOrNew;
ExcelApp.Connect; // Подключаемся
WB := nil;
try
if (ExcelApp.Workbooks.Count > 0) then
begin
// Ищем рабочую книгу с заданным именем
for i := 1 to ExcelApp.Workbooks.Count do
begin
if (ExcelApp.Workbooks.Item[i].Name = WBName) then
begin
WB := ExcelApp.Workbooks.Item[i] as _Workbook;
Break;
end;
end;
end;
if (WB = nil) then // Если не нашлась - открываем
begin
WB := ExcelApp.Workbooks.Open(exlFileName, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, False, EmptyParam, EmptyParam, 0);
NeedCloseWb := True; // Раз сами открыли, сами и закроем
end;
xCharts := nil;
for i := 1 to WB.Worksheets.Count do // Обходим страницы рабочей книги, собираем Графики
begin
xCharts := ((WB.Worksheets.Item[i] as _Worksheet).ChartObjects(EmptyParam, 0) as ChartObjects);
if Assigned(xCharts) then
begin
xChart := nil;
for j := 1 to xCharts.Count do // Обходим все меющиеся на странице графики
begin
xChart := xCharts.Item(j) as ChartObject;
if Assigned(xChart) then
begin
ClipBoard.Clear; // чистим буфер обмена (на всякий случай)
xChart.CopyPicture(xlScreen,xlBitmap); // копируем график в буфер обмена как битмар
BMP := TBitmap.Create; // Забираем график из буфера обмена
BMP.LoadFromClipboardFormat(CF_BITMAP,ClipBoard.GetAsHandle(cf_Bitmap), 0);
Crt := xChart.Chart;
if (Crt.HasTitle = True) then // Если у графика есть собственное название
// В список кладем это название
ChartList.AddObject(Crt.ChartTitle.Text,BMP)
else // Иначе в список кладем "рабочее имя" графика
ChartList.AddObject(Crt.Name,BMP);
end;
BMP := nil;
xChart := nil;
end;
end;
xCharts := nil;
end;
if NeedCloseWb then // Если нужно - закрываем рабочую книгу
WB.Close(False,EmptyParam,EmptyParam,0);
finally
ClipBoard.Clear; // чистим за собой буфер обмена
Result := (ChartList.Count > 0);
if StartExcelNewInstance then // Если мы запускали собственный экземпляр Excel
begin // Мы должны его "потушить"
if Assigned(ExcelApp) then
begin
if (ExcelApp.Workbooks.Count > 0) and (not ExcelApp.Visible[0]) then
begin
ExcelApp.WindowState[0] := TOLEEnum(xlMinimized);
ExcelApp.Visible[0] := true;
Application.BringToFront;
end;
end;
FreeAndNil(ExcelApp);
end
else // Если цеплялись к запущенному - просто отключаемся
begin
ExcelApp.Disconnect;
ExcelApp.Free;
end;
end;
end;
