3,245
社区成员
发帖
与我相关
我的任务
分享
CLSID clsidExcel;
CLSIDFromProgID(L"Excel.Application", &clsidExcel);
IUnknown *punkExcel;
HRESULT hrExcel = GetActiveObject(clsidExcel, NULL, &punkExcel);
Excel::_ApplicationPtr app = punkExcel;
Excel::WorkbooksPtr workbooks;
Excel::_WorkbookPtr workbook;
Excel::SheetsPtr sheets;
Excel::_WorksheetPtr sheet;
Excel::IShapes* shapes;
Excel::IShape* shape;
Excel::IOLEFormat* oleformat;
Excel::IWindows* windows;
Excel::IWindow* window;
Excel::IRange* range;
app->get_Workbooks(&workbooks);
CComVariant index(1);
workbooks->get_Item(index,&workbook);
workbook->get_Worksheets(&sheets);
sheets->get_Item(index,(LPDISPATCH*)&sheet);
sheet->get_Shapes((Excel::Shapes**)&shapes);
CComVariant varCtrl("SZCASIGN.Seal.1");
CComVariant varCtrl1;
CComVariant varCtrl2(VARIANT_FALSE);
CComVariant varCtrl3(0);
CComVariant left(200);
CComVariant right(200);
CComVariant widthh(200);
CComVariant heigth(200);
shapes->AddOLEObject(varCtrl,varCtrl1, varCtrl2,varCtrl2,varCtrl1,varCtrl1,varCtrl1,left,right,widthh,heigth,(Excel::Shape**)&shape);
shape->get_OLEFormat((Excel::OLEFormat**)&oleformat);
oleformat->Activate();