Bild in Excel laden

coder24h

Hallo zusammen,
ich habe ein Problem und hoffe das Ihr mir weiter helfen könnt.?

Wie der Titel schon sagt versuche ich ein Bild aus meiner Anwendung heraus ins Excel zu laden. Folgenderweise habe ich das bis jetzt probiert:

WideString wsFilename = "C:\\test.bmp";    ExcelWorksheet->Shapes->AddPicture(wsFilename.Detach(),msoTrue,msoTrue,10,10,100,100);

Kann mir jemand hier weiter helfen?

coder24h

So gehts:

bool __fastcall TTest::SetPicture(TObject *Sender,
                                                 const AnsiString& Path,
                                                 const int& Left,
                                                 const int& Top,
                                                 const int& Height,
                                                 const int& Width)
{
	bool bRet = true;

    try
    {
        WideString wsFilename = Path;
        Excel_2k::ShapePtr Shape =  ExcelWorksheet->Shapes->AddPicture(wsFilename.Detach(),msoTrue,msoTrue,Left,Top,Width, Height);
        Shape->set_Visible(msoTrue);
    }
    catch(...)
    {
        bRet = false;
    }

  return bRet;
}