DXL Scripting import image from Excel Cell if exists automation

 Hello all,

string getCellContent(OleAutoObj objSheet, int cols, int rows)

{

  OleAutoArgs objArgBlock = create;

  OleAutoObj objCell;   

  string zellenInhalt;  

  string val;

  bool pic;

  OleAutoObj objShape;

  string shap;

  string typ;

  string cellvalue;

  string toprange;

  OleAutoObj pics;

  clear( objArgBlock );   

  put( objArgBlock, rows );  

  put( objArgBlock, cols );  

  oleGet(objSheet, "Cells", objArgBlock,objCell); 

  oleGet(objSheet, "Shapes", objShape);

  oleGet(objSheet, "Pictures", toprange);

  oleGet(objCell, "TopLeftCell", cellvalue);

  oleGet(objShape, "Type", typ);

  //print "TopLeftCell is: " toprange "\n"

  OleAutoObj p;

  string x

  string cnt

  if (!null objCell)

  {

    

        oleGet(objCell,"FormulaR1C1",zellenInhalt);

        oleGet(objCell, "Value", val);

oleGet(objCell, "Hyperlinks", objlin);

oleGet(objlin, "Count", cnt);

print cnt "\n";

oleGet(objCell, "Picture", objArgBlock,pic);

//string s = richTextWithOle(objCell."Object Text");

//print s "\n"

oleGet(objSheet, "Picture", pics);

oleGet(objCell, "TopLeftCell", toprange);

oleGet(objSheet, "Shapes", objshapes);

oleGet(objshapes, "Type", objType);

oleGet(objType, "TopLeftCell", objtpleft);

oleGet(objtpleft, "Address", objAdd);

//print objAdd "\n"

        //oleGet(objShape, "Type", typ);

//print "Shape is: " typ "\n"

print "TopLeftCell is: " toprange "\n"

//for p in pics do{

   //oleGet(p, "TopLeftCell", x);

   //print x "\n"

//}

  }

  return zellenInhalt "";

}