void EXCEL_APP::PutImage(AnsiString FileName,  float Left,float Top,
  float Width, float Height){
// рисунок из FileName поместить по центру заданной области
// Left, Top, Width,Height на листе Excel
Variant ActiveSheet=App.OlePropertyGet("ActiveSheet");
Variant Pictures=ActiveSheet.OlePropertyGet("Pictures");
Variant Img=Pictures.OleFunction("Insert",FileName);
float ImgWidth=Img.OlePropertyGet("Width");
float ImgHeight=Img.OlePropertyGet("Height");
// масштабирование
if(ImgWidth>Width- 10 ){
    ImgWidth=Width- 10 ;
}
if(ImgHeight>Height- 10 ){
    ImgHeight=Height- 10 ;
}
Img.OlePropertySet("Width",ImgWidth);
Img.OlePropertySet("Height",ImgHeight);

float ImgLeft=Left+(Width-ImgWidth)/ 2 ;
// непонятно почему неверно центрирует

float ImgTop=Top+(Height-ImgHeight)/ 2 ;
Img.OlePropertySet("Left",ImgLeft);
Img.OlePropertySet("Top",ImgTop);
}