ActiveQt + Excel. Перенос Chart на другой лист

    range = worksheet->querySubObject("Range(const QVariant&)", QVariant("A2:C200"));
    range->dynamicCall("Select()");
    //Создаем объект Charts (коллекция областей диаграмм)
    QAxObject * charts = workbook->querySubObject("Charts");
    //Добавляем новую область диаграмм
    QAxObject * chart = charts->querySubObject("Add()");
    //Устанавливаем имя области диаграмм
    chart->dynamicCall("Name", "Name");
    //Устанавливаем тип области диаграмм
    chart->dynamicCall("ChartType", QVariant("xlLine"));
    //Получаем доступ к текущему ряду области диаграмм
    QAxObject * series = chart->querySubObject("SeriesCollection(const QVariant&)", QVariant(1));
    //Устанавливаем имя ряда
    series->dynamicCall("Name", "Name1");
    //Получаем объект Range для оси X в виде QVariant
    QVariant source = worksheet->dynamicCall("Range(const QVariant&)", QVariant("D2:D200"));
    //Устанавливаем диапазон значаний X для ряда
    series->dynamicCall( "XValues", source );
    //Получаем объект Range для оси Y в виде QVariant
    source = worksheet->dynamicCall("Range(const QVariant&)", QVariant("A2:A200"));
    //Устанавливаем диапазон значаний Y для ряда
    series->dynamicCall("Values", source);
    series = chart->querySubObject("SeriesCollection(const QVariant&)", QVariant(2));
    series->dynamicCall("Name", "Name2");
    source = worksheet->dynamicCall("Range(const QVariant&)", QVariant("D2:D200"));
    series->dynamicCall("XValues", source);
    source = worksheet->dynamicCall( "Range(const QVariant&)", QVariant("B2:B200"));
    series->dynamicCall("Values", source);
    series = chart->querySubObject("SeriesCollection(const QVariant&)", QVariant(3));
    series->dynamicCall("Name", "Name3");
    source = worksheet->dynamicCall("Range(const QVariant&)", QVariant("D2:D200"));
    series->dynamicCall("XValues", source);
    source = worksheet->dynamicCall("Range(const QVariant&)", QVariant("C2:C200"));
    series->dynamicCall("Values", source);