怎么用MFC给打开的excel中插入图片，小弟我已经可以打开excel

如何用MFC给打开的excel中插入图片，我已经可以打开excel

新手入门请大神多多指教

CApplication ExcelApp;
CWorkbooks books;
CWorkbook book;
CWorksheets sheets;
CWorksheet sheet;
CRange range;
CPicture picture;
CShapes shapes;
LPDISPATCH lpDisp = NULL;

if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))
{
AfxMessageBox(_T("启动Excel服务器失败!"));
return -1;
}
ExcelApp.put_Visible(TRUE);
ExcelApp.put_UserControl(FALSE);
books.AttachDispatch(ExcelApp.get_Workbooks());
    CString strBookPath = _T("E:\\我的文档\\文档\\11.xlsx");
lpDisp = books.Open(strBookPath, vtMissing, vtMissing,
        vtMissing, vtMissing, vtMissing, vtMissing,
        vtMissing, vtMissing, vtMissing, vtMissing, 
        vtMissing, vtMissing, vtMissing, vtMissing);
book.AttachDispatch(lpDisp);

------解决思路----------------------
在Excel 2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

------解决思路----------------------
是否可以插入 图片的地址 
------解决思路----------------------

	//从Sheet对象上获得一个Shapes    

	Shapes shapes=sheet.GetShapes();

	//获得Range对象，用来插入图片

	range=sheet.GetRange(COleVariant("B16"),COleVariant("J22"));

	rgMyRge1=range;

	//从本地添加一个图片

	shapes.AddPicture("D:\\Test1.jpg",false,true,(float)range.GetLeft().dblVal,(float)range.GetTop().dblVal,(float)range.GetWidth().dblVal,(float)range.GetHeight().dblVal);

	//设置宽高

	ShapeRange sRange=shapes.GetRange(_variant_t(long(1)));

	sRange.SetHeight(float(30));

	sRange.SetWidth(float(30));