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

Question

插件怎么取得当前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插件时不行.    各位有没有一些源代码.

Answer 1

STDMETHOD(OnConnection)(LPDISPATCH Application, ext_ConnectMode ConnectMode, LPDISPATCH AddInInst, SAFEARRAY * * custom)
{
CComPtr < Office::_CommandBars> spCmdBars; 
CComQIPtr<Word::_Application>  spApp(Application); 
ATLASSERT(spApp);
HRESULT hr;
       }初始化插件时传一个，保存下来