Как вставить изображение в Excel

    // Excel делается видимым
    ExcelApp->set_Visible(true, true);
 
    // Создание в Excel новой книги
    TVariant Visible = false;
    TVariant t =
        Application->ExeName.SubString(1,
            Application->ExeName.LastDelimiter("\\")) +
            "Documents\\Отчет.xlt";
    ExcelApp->Workbooks->Add(t,Visible);
 
    // Соединение ExcelWb с активным документом
    ExcelWbk->ConnectTo(ExcelApp->ActiveWorkbook);
 
    // Занесение в книгу информации
    ExcelWbk->Activate(0);
 
    TVariant cell, text;
    cell = "A13";
    text = "Какой-то текст"
 
    ExcelApp->get_Range(cell, cell)->set_Value(text);
 
    // А здесь уже необходимо написать код типа: "ХЛ->Картинки->Вставить(ячейка, путь к картинке);"

     Variant Sel = Word.OlePropertyGet("Selection");
     Variant Find = Sel.OlePropertyGet("Find");
 
     Find.OlePropertySet("Forward", true);
     Find.OlePropertySet("Text", StringToOleStr("#pic1#"));
     Find.OleProcedure("Execute");
     Sel.OleProcedure("Delete");
 
     Clipboard()->Assign(Image1->Picture->Bitmap);
     Sel.OleProcedure("Paste");
     Clipboard()->Clear();

    long Icid = LOCALE_SYSTEM_DEFAULT;
 
    ExcelApp->ConnectKind = ckNewInstance;
    ExcelApp->AutoQuit = true;
    ExcelApp->set_Visible(Icid, true);
    ExcelApp->AutoConnect = true;
 
    TVariant Visible = false;
    TVariant t =
        Application->ExeName.SubString(1,
            Application->ExeName.LastDelimiter("\\")) +
            "Documents\\Отчет.xls";
    ExcelApp->Workbooks->Add(t,Visible);
 
    // Присоединяю Workbook
    ExcelWbk->ConnectTo(ExcelApp->ActiveWorkbook);
 
    // Присоединяю Worksheet
    ExcelWsh->ConnectTo(ExcelApp->ActiveWorkbook->ActiveSheet);
 
 
    // Вставляю картинку
    wchar_t *path = (wchar_t *)"c:\\1.jpg";
    ExcelWsh->Shapes->AddPicture(path, msoFalse, msoTrue,
        0, 0, 200, 200);

ExcelWsh->Shapes->AddPicture(path, msoFalse, msoTrue, 0, 0, 200, 200);

ExcelWsh->Shapes->AddLine(0, 0, 100, 100);