OLE大神，excel怎么插入超链接

求助OLE大神，excel如何插入超链接
如题，我想在导出EXCEL时把图片和视频先复制到存放EXCEL的文件夹内，然后同意操作OLE设置EXCEL超链接链接到EXCEL当前文件夹的图片或视频上，当点击EXCEL中图片名字超链接时打开图片，这个该怎么做  求大神们帮助啊 用的是CB XE7 和EXCEL 2007.
------解决思路----------------------

Variant vExcelApp;

try

{

	vExcelApp = Variant::CreateObject("Excel.Application");

}

catch(...)

{

	MessageBoxW(0, L"启动 Excel 出错, 可能是没有安装Excel.",

			L"Error", MB_OK 
------解决思路----------------------
 MB_ICONERROR);

	vExcelApp = Unassigned;

	return;

}


vExcelApp.OlePropertySet("Visible", true);


String strXlsFile = L"D:\\ccrun\\123.xls";

vExcelApp.OlePropertyGet("Workbooks").OleFunction("Open", WideString(strXlsFile));


Variant vSheet = vExcelApp.OlePropertyGet("ActiveWorkbook").OlePropertyGet("Sheets", 1);


// 在第二行第三列的格子里插入超链接

vSheet.OlePropertyGet("Cells", 2, 3).OleProcedure("Select");

String strLinkFile = L"D:\\ccrun\\123.bmp";

String strScreenTip = L"点击打开图片";

String strTextToDisplay = L"链接图片";

vSheet.OlePropertyGet("Hyperlinks").OleFunction("Add",

		vExcelApp.OlePropertyGet("Selection"), // Anchor

		WideString(strLinkFile),               // Address

		WideString(strLinkFile),               // SubAddress

		WideString(strScreenTip),              // ScreenTip

		WideString(strTextToDisplay)           // TextToDisplay

		);

...