Передвинуть диаграмму в Excel средствами OLE

    Variant  vVarApp,vVarBooks,vVarBook,vVarSheets,vVarSheet, vVarCharts;
 
    vVarApp = CreateOleObject("Excel.Application");
    vVarBooks = vVarApp.OlePropertyGet("Workbooks"); // Workbooks,  набор рабочих книг Excel
    vVarApp.OlePropertySet("SheetsInNewWorkbook", 5 ); // Кол-во листов в создаваемой книге
    vVarBooks.OleProcedure("Add"); //  Добавляем книгу в объект vVarBooks
    vVarBook = vVarBooks.OlePropertyGet("Item", 1); // Переменная vVarBook содержит ссылку на текущую книгу.
    vVarSheets = vVarBook.OlePropertyGet("Worksheets") ; // Присваиваем значение Worksheets
    vVarSheet = vVarSheets.OlePropertyGet("Item", 1); // Берем первый лист
    vVarSheet.OlePropertySet("Name", "Диаграмма");    // Даем ему название
 
    vVarCharts = vVarApp.OlePropertyGet("Charts");
    vVarCharts.OleProcedure("Add");     // Добавляем диаграмму
 
    // Вставляем диаграмму в нужный лист
    vVarBook.OlePropertyGet("ActiveChart").OleProcedure("Location", 2, "Диаграмма"); // xlLocationAsObject = 2;
    // Двигаем диаграмму
    vVarSheet = vVarSheets.OlePropertyGet("Item", 1); // Берем первый лист
    vVarSheet.OleProcedure("Activate");
 
// Здесь возникает ошибка!
    vVarSheet.OlePropertyGet("ChartObjects").OlePropertyGet("Item", 1).OlePropertySet("Top", 120);
 
    vVarApp.OlePropertySet("Visible", true); // Делаем приложение видимым

    // ...
    vVarSheet.OlePropertySet("Name", WideString(L"Диаграмма"));    // Даем ему название
 
    vVarCharts = vVarApp.OlePropertyGet("Charts");
    vVarCharts.OleProcedure("Add");     // Добавляем диаграмму
 
    // Вставляем диаграмму в нужный лист
    vVarBook.OlePropertyGet("ActiveChart").OleProcedure("Location", 2, WideString(L"Диаграмма"));
    // ...

#include "Excel_XP_srvr.h"
// ...
#pragma link "Excel_XP_srvr"
// ...
 
    TExcelApplication* ExcelApplication1 = new TExcelApplication(NULL);
    TExcelWorkbook* ExcelWorkbook1 = new TExcelWorkbook(NULL);
    TExcelWorksheet* ExcelWorksheet1 = new TExcelWorksheet(NULL);
 
    ExcelApplication1->Connect();
    ExcelApplication1->Workbooks->Add();
    ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->get_Item(TVariant(1)));
    ExcelWorkbook1->Activate(0);
    ExcelApplication1->set_Visible(0, true);
 
    ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Sheets->get_Item(TVariant(1)));
    ExcelWorksheet1->Activate(0);
    ExcelWorksheet1->set_Name(L"Диаграмма");
 
    ExcelApplication1->Charts->Add();
    _ChartPtr chart = ExcelApplication1->Charts->get_Item(TVariant(1));
    chart->Location(XlChartLocation::xlLocationAsObject, TVariant(WideString(L"Диаграмма")));
 
    ChartObjectPtr pChart = ExcelWorksheet1->ChartObjects(TVariant(1));
    pChart->set_Top(120);
    // ...