小弟我用vc6开发excel2003的插件，主要是往excel里插入一副图片，如何取得当前excel的app,work等对象

我用vc6开发excel2003的插件，主要是往excel里插入一副图片，怎么取得当前excel的app,work等对象
插件怎么取得当前excel的_ApplicationPtr,work,sheet等对象.

    CLSID clsid;
    CLSIDFromProgID(L"Word.Application", &clsid);
    IUnknown *punk;
    HRESULT hr = GetActiveObject(clsid, NULL, &punk);
    
    ATLASSERT(!FAILED(hr));
    Word::_ApplicationPtr app = punk;
    这段代码在做word插件里可行，但在做excel插件时不行.

    各位有没有一些源代码.
------解决方案--------------------

	STDMETHOD(OnConnection)(LPDISPATCH Application, ext_ConnectMode ConnectMode, LPDISPATCH AddInInst, SAFEARRAY * * custom)

	{

		CComPtr < Office::_CommandBars> spCmdBars; 

		CComQIPtr<Word::_Application>  spApp(Application); 

		ATLASSERT(spApp);

		HRESULT hr;

       }

初始化插件时传一个，保存下来