在EXCEL中自动产生图表、背景并设定保护模式

在EXCEL中自动产生图表、背景并设定保护模式（一）

前面已经讲了如何生成和填充表格，直接进入要产生图表的部份。

VariantExcel,Workbooks,Workbook,Charts,Chart,Range;
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible",true);//秀出Excel的画面
Workbooks=Excel.OlePropertyGet("Workbooks");
Workbook=Workbooks.OleFunction("Add");
Worksheets=Workbook.OlePropertyGet("Worksheets");
Worksheet=Worksheets.OleFunction("Add");//新增一worksheet
Worksheet.OlePropertySet("Name","test");//设定worksheet的名称


//取得Charts的对象
Charts=Workbook.OlePropertyGet("Charts");
.
.
.先把所需资料填入cell中
.
.

//建立一个新的图表，这时图表会开在一个新的sheet里，而整个sheet就是一个图表
//之后会把图表放在其它的sheet里
Chart=Charts.OleFunction("Add");


//设定图表的格式，65是表示含有数据标记的折线图，后面会有图表格式的说明
Chart.OlePropertySet("ChartType",65);


//选定要制作图表的数据来源，这个例子我是要选择excel中从cell(1,1)到cell(10,5)的资料，
//此动作就好像用鼠标把这一部份的字段选起来一样
Range=Worksheet.OlePropertyGet("Range",
Worksheet.OlePropertyGet("Cells",1,1),
Worksheet.OlePropertyGet("Cells",10,5));


//设定图表的数据来源，xlRows表示数据是以列来做排列，如果资料是用行来排列，就用xlColumns，
//如果是用xlRows，选取范围的第一列就是x轴每一笔数据的名称，
//第一行是y轴数据的名称，其余的就是图表里的数值
Chart.OleProcedure("SetSourceData",Range,xlRows);


//设定图表的title
Chart.OlePropertySet("HasTitle",(Variant)true);//先设定图表有title
StringCharttitle="testchart!!";
Chart.OlePropertyGet("ChartTitle").OlePropertySet("Text",Charttitle.c_str());


//设定图表x轴和y轴是否要秀出title和资料名称
Chart.OlePropertyGet("Axes",1).OlePropertySet("HasTitle",(Variant)true);//设定x轴是否要显示资料名称
Chart.OlePropertyGet("Axes",1).OlePropertyGet("AxisTitle").OlePropertySet("Text","时间");//设定x轴的title
Chart.OlePropertyGet("Axes",2).OlePropertySet("HasTitle",(Variant)true);//设定y轴是否要显示资料名称
Chart.OlePropertyGet("Axes",2).OlePropertyGet("AxisTitle").OlePropertySet("Text","次数");//设定y轴的title


//设定图表要放在哪一个sheet里


Chart.OleProcedure("Location",2,Worksheet.OlePropertyGet("Name"));


//设定图表的位置与长宽，
//Worksheet.OlePropertyGet("ChartObjects",1)表示是要设定这个sheet中第一个图表，
//如要设定第二个图表就用Worksheet.OlePropertyGet("ChartObjects",2)，
//图表的顺序依在sheet中产生或放置的先后排列


Worksheet.OlePropertyGet("ChartObjects",1).OlePropertySet("Top",15);
Worksheet.OlePropertyGet("ChartObjects",1).OlePropertySet("Left",20);
Worksheet.OlePropertyGet("ChartObjects",1).OlePropertyGet("Width",50);
Worksheet.OlePropertyGet("ChartObjects",1).OlePropertyGet("Height",30);


//此时图表已经漂漂亮亮的在sheet中啰!

底下列出图表格式常数的定义:
typedefenumXlChartType
{
xlColumnClustered=51,
xlColumnStacked=52,
xlColumnStacked100=53,
xl3DColumnClustered=54,
xl3DColumnStacked=55,
xl3DColumnStacked100=56,
xlBarClustered=57,
xlBarStacked=58,
xlBarStacked100=59,
xl3DBarClustered=60,
xl3DBarStacked=61,
xl3DBarStacked100=62,
xlLineStacked=63,
xlLineStacked100=64,
xlLineMarkers=65,
xlLineMarkersStacked=66,
xlLineMarkersStacked100=67,
xlPieOfPie=68,
xlPieExploded=69,
xl3DPieExploded=70,
xlBarOfPie=71,
xlXYScatterSmooth=72,
xlXYScatterSmoothNoMarkers=73,
xlXYScatterLines=74,
xlXYScatterLinesNoMarkers=75,
xlAreaStacked=76,
xlAreaStacked100=77,
xl3DAreaStacked=78,
xl3DAreaStacked100=79,
xlDoughnutExploded=80,
xlRadarMarkers=81,
xlRadarFilled=82,
xlSurface=83,
xlSurfaceWireframe=84,
xlSurfaceTopView=85,
xlSurfaceTopViewWireframe=86,
xlBubble=15,
xlBubble3DEffect=87,
xlStockHLC=88,
xlStockOHLC=89,
xlStockVHLC=90,
xlStockVOHLC=91,
xlCylinderColClustered=92,
xlCylinderColStacked=93,
xlCylinderColStacked100=94,
xlCylinderBarClustered=95,
xlCylinderBarStacked=96,
xlCylinderBarStacked100=97,
xlCylinderCol=98,
xlConeColClustered=99,
xlConeColStacked=100,
xlConeColStacked100=101,
xlConeBarClustered=102,
xlConeBarStacked=103,
xlConeBarStacked100=104,
xlConeCol=105,
xlPyramidColClustered=106,
xlPyramidColStacked=107,
xlPyramidColStacked100=108,
xlPyramidBarClustered=109,
xlPyramidBarStacked=110,
xlPyramidBarStacked100=111,
xlPyramidCol=112,
xl3DColumn=0xFFFFEFFC,
xlLine=4,
xl3DLine=0xFFFFEFFB,
xl3DPie=0xFFFFEFFA,
xlPie=5,
xlXYScatter=0xFFFFEFB7,
xl3DArea=0xFFFFEFFE,
xlArea=1,
xlDoughnut=0xFFFFEFE8,
xlRadar=0xFFFFEFC9
}XlChartType;
小弟尝试的结果，列出部份常数的意思，其余的就看有没有人补充啰!
5:2D的饼图(Pie图)
16:泡泡图
51:2D的柱形图
52:2D的堆栈柱形图
53:2D的100%堆栈柱形图
54:3D的柱形图
55:3D的堆栈柱形图
56:3D的100%堆栈柱形图
57:2D的横条图
58:2D的堆栈横条图
59:2D的100%堆栈横条图
60:3D的横条图
61:3D的堆栈横条图
62:3D的100%堆栈横条图
63:折线图
65:含有数据标志的折线图

在EXCEL中自动产生图表、背景并设定保护模式（二）

接下来设定EXCEL的背景图案
StringBmpPath;
BmpPath="C:/background.bmp";
if(FileExists(BmpPath))
Worksheet.OleFunction("SetBackgroundPicture",BmpPath.c_str());
保护sheet
Worksheet.OleFunction("Protect","password",true,true,true,true);
Protect函式的定义如下:
templateHRESULT/*[VT_HRESULT:0]*/__fastcall
_WorksheetDispT::Protect(VARIANTPassword/*[in,opt]*/,VARIANTDrawingObjects/*[in,opt]*/,
VARIANTContents/*[in,opt]*/,VARIANTScenarios/*[in,opt]*/,
VARIANTUserInterfaceOnly/*[in,opt]*/)
{
_TDispID_dispid(*this,OLETEXT("Protect"),DISPID(282));
TAutoArgs<5>_args;
_args[1]=Password/*[VT_VARIANT:0]*/;
_args[2]=DrawingObjects/*[VT_VARIANT:0]*/;
_args[3]=Contents/*[VT_VARIANT:0]*/;
_args[4]=Scenarios/*[VT_VARIANT:0]*/;
_args[5]=UserInterfaceOnly/*[VT_VARIANT:0]*/;
returnOleFunction(_dispid,_args);
}


共有五个参数，第一个是解开保护的Password，
第二个是设定是否要保护sheet上面的DrawingObjects，像是图表
第三个是设定是否要保护sheet的Contents，设true的话，使用者不能修改sheet的内容
第四个和第五个是设定是否要保护sheet的Scenarios和UserInterfaceOnly，
不过我不是很清这两个是保护什么!
Worksheet.OlePropertySet("EnableSelection",xlUnlockedCells);


这是要保护使用者连选取cell都不可以，
不过我发现这个保护只能在用OLE制作EXCEL时有效，
如果制作完，把EXCEL关掉，再打开，就又可以选取cell了，
可能有什么步骤没做好吧~
-----------------------------------------------------
有一点很重要，程序中用到的那些常数，像是xlRows、xlcolumns、xlUnlockedCells等，
还有各种图表格式的定义，以及OLE所提供的所有函数名称，
都是定义在excel_2k.h这个标头档里，
所以程序前面要加上
#include


要不然执行时会出现没有定义变量这个错误，
我很多功能都是看这个标头档学来的，
如果想进一步了解OLE制作Excel还有哪里功能，
可以试着看看这个档，不过不容易看~我知道!
像是如果想看Chart还有提供什么操作，
可以把这个档打开，搜寻"_ChartDispT"这个字符串，
就可以找到Chart还有哪些属性和功能~
不过我的程序没办法直接include这个档，
所以我把我的程序中会用到的常数从excel_2k.h这个档中复制到一个自订的.h檔，再include这个档~我自订的.h内容是:


typedefenumConstants
{
xlAll=0xFFFFEFF8,
xlAutomatic=0xFFFFEFF7,
xlBoth=1,
xlCenter=0xFFFFEFF4,
xlChecker=9,
xlCircle=8,
xlCorner=2,
xlCrissCross=16,
xlCross=4,
xlDiamond=2,
xlDistributed=0xFFFFEFEB,
xlDoubleAccounting=5,
xlFixedValue=1,
xlFormats=0xFFFFEFE6,
xlGray16=17,
xlGray8=18,
xlGrid=15,
xlHigh=0xFFFFEFE1,
xlInside=2,
xlJustify=0xFFFFEFDE,
xlLightDown=13,
xlLightHorizontal=11,
xlLightUp=14,
xlLightVertical=12,
xlLow=0xFFFFEFDA,
xlManual=0xFFFFEFD9,
xlMinusValues=3,
xlModule=0xFFFFEFD3,
xlNextToAxis=4,
xlNone=0xFFFFEFD2,
xlNotes=0xFFFFEFD0,
xlOff=0xFFFFEFCE,
xlOn=1,
xlPercent=2,
xlPlus=9,
xlPlusValues=2,
xlSemiGray75=10,
xlShowLabel=4,
xlShowLabelAndPercent=5,
xlShowPercent=3,
xlShowValue=2,
xlSimple=0xFFFFEFC6,
xlSingle=2,
xlSingleAccounting=4,
xlSolid=1,
xlSquare=1,
xlStar=5,
xlStError=4,
xlToolbarButton=2,
xlTriangle=3,
xlGray25=0xFFFFEFE4,
xlGray50=0xFFFFEFE3,
xlGray75=0xFFFFEFE2,
xlBottom=0xFFFFEFF5,
xlLeft=0xFFFFEFDD,
xlRight=0xFFFFEFC8,
xlTop=0xFFFFEFC0,
xl3DBar=0xFFFFEFFD,
xl3DSurface=0xFFFFEFF9,
xlBar=2,
xlColumn=3,
xlCombination=0xFFFFEFF1,
xlCustom=0xFFFFEFEE,
xlDefaultAutoFormat=0xFFFFFFFF,
xlMaximum=2,
xlMinimum=4,
xlOpaque=3,
xlTransparent=2,
xlBidi=0xFFFFEC78,
xlLatin=0xFFFFEC77,
xlContext=0xFFFFEC76,
xlLTR=0xFFFFEC75,
xlRTL=0xFFFFEC74,
xlFullScript=1,
xlPartialScript=2,
xlMixedScript=3,
xlMixedAuthorizedScript=4,
xlVisualCursor=2,
xlLogicalCursor=1,
xlSystem=1,
xlPartial=3,
xlHindiNumerals=3,
xlBidiCalendar=3,
xlGregorian=2,
xlComplete=4,
xlScale=3,
xlClosed=3,
xlColor1=7,
xlColor2=8,
xlColor3=9,
xlConstants=2,
xlContents=2,
xlBelow=1,
xlCascade=7,
xlCenterAcrossSelection=7,
xlChart4=2,
xlChartSeries=17,
xlChartShort=6,
xlChartTitles=18,
xlClassic1=1,
xlClassic2=2,
xlClassic3=3,
xl3DEffects1=13,
xl3DEffects2=14,
xlAbove=0,
xlAccounting1=4,
xlAccounting2=5,
xlAccounting3=6,
xlAccounting4=17,
xlAdd=2,
xlDebugCodePane=13,
xlDesktop=9,
xlDirect=1,
xlDivide=5,
xlDoubleClosed=5,
xlDoubleOpen=4,
xlDoubleQuote=1,
xlEntireChart=20,
xlExcelMenus=1,
xlExtended=3,
xlFill=5,
xlFirst=0,
xlFloating=5,
xlFormula=5,
xlGeneral=1,
xlGridline=22,
xlIcons=1,
xlImmediatePane=12,
xlInteger=2,
xlLast=1,
xlLastCell=11,
xlList1=10,
xlList2=11,
xlList3=12,
xlLocalFormat1=15,
xlLocalFormat2=16,
xlLong=3,
xlLotusHelp=2,
xlMacrosheetCell=7,
xlMixed=2,
xlMultiply=4,
xlNarrow=1,
xlNoDocuments=3,
xlOpen=2,
xlOutside=3,
xlReference=4,
xlSemiautomatic=2,
xlShort=1,
xlSingleQuote=2,
xlStrict=2,
xlSubtract=3,
xlTextBox=16,
xlTiled=1,
xlTitleBar=8,
xlToolbar=1,
xlVisible=12,
xlWatchPane=11,
xlWide=3,
xlWorkbookTab=6,
xlWorksheet4=1,
xlWorksheetCell=3,
xlWorksheetShort=5,
xlAllExceptBorders=6,
xlLeftToRight=2,
xlTopToBottom=1,
xlVeryHidden=2,
xlDrawingObject=14
}Constants;


typedefenumXlBorderWeight
{
xlHairline=1,
xlMedium=0xFFFFEFD6,
xlThick=4,
xlThin=2
}XlBorderWeight;


typedefenumXlLineStyle
{
xlContinuous=1,
xlDash=0xFFFFEFED,
xlDashDot=4,
xlDashDotDot=5,
xlDot=0xFFFFEFEA,
xlDouble=0xFFFFEFE9,
xlSlantDashDot=13,
xlLineStyleNone=0xFFFFEFD2
}XlLineStyle;


typedefenumXlEditionOptionsOption
{
xlAutomaticUpdate=4,
xlCancel=1,
xlChangeAttributes=6,
xlManualUpdate=5,
xlOpenSource=3,
xlSelect=3,
xlSendPublisher=2,
xlUpdateSubscriber=2
}XlEditionOptionsOption;


typedefenumXlChartType
{
xlColumnClustered=51,
xlColumnStacked=52,
xlColumnStacked100=53,
xl3DColumnClustered=54,
xl3DColumnStacked=55,
xl3DColumnStacked100=56,
xlBarClustered=57,
xlBarStacked=58,
xlBarStacked100=59,
xl3DBarClustered=60,
xl3DBarStacked=61,
xl3DBarStacked100=62,
xlLineStacked=63,
xlLineStacked100=64,
xlLineMarkers=65,
xlLineMarkersStacked=66,
xlLineMarkersStacked100=67,
xlPieOfPie=68,
xlPieExploded=69,
xl3DPieExploded=70,
xlBarOfPie=71,
xlXYScatterSmooth=72,
xlXYScatterSmoothNoMarkers=73,
xlXYScatterLines=74,
xlXYScatterLinesNoMarkers=75,
xlAreaStacked=76,
xlAreaStacked100=77,
xl3DAreaStacked=78,
xl3DAreaStacked100=79,
xlDoughnutExploded=80,
xlRadarMarkers=81,
xlRadarFilled=82,
xlSurface=83,
xlSurfaceWireframe=84,
xlSurfaceTopView=85,
xlSurfaceTopViewWireframe=86,
xlBubble=15,
xlBubble3DEffect=87,
xlStockHLC=88,
xlStockOHLC=89,
xlStockVHLC=90,
xlStockVOHLC=91,
xlCylinderColClustered=92,
xlCylinderColStacked=93,
xlCylinderColStacked100=94,
xlCylinderBarClustered=95,
xlCylinderBarStacked=96,
xlCylinderBarStacked100=97,
xlCylinderCol=98,
xlConeColClustered=99,
xlConeColStacked=100,
xlConeColStacked100=101,
xlConeBarClustered=102,
xlConeBarStacked=103,
xlConeBarStacked100=104,
xlConeCol=105,
xlPyramidColClustered=106,
xlPyramidColStacked=107,
xlPyramidColStacked100=108,
xlPyramidBarClustered=109,
xlPyramidBarStacked=110,
xlPyramidBarStacked100=111,
xlPyramidCol=112,
xl3DColumn=0xFFFFEFFC,
xlLine=4,
xl3DLine=0xFFFFEFFB,
xl3DPie=0xFFFFEFFA,
xlPie=5,
xlXYScatter=0xFFFFEFB7,
xl3DArea=0xFFFFEFFE,
xlArea=1,
xlDoughnut=0xFFFFEFE8,
xlRadar=0xFFFFEFC9
}XlChartType;


typedefenumXlChartItem
{
xlDataLabel=0,
xlChartArea=2,
xlSeries=3,
xlChartTitle=4,
xlWalls=5,
xlCorners=6,
xlDataTable=7,
xlTrendline=8,
xlErrorBars=9,
xlXErrorBars=10,
xlYErrorBars=11,
xlLegendEntry=12,
xlLegendKey=13,
xlShape=14,
xlMajorGridlines=15,
xlMinorGridlines=16,
xlAxisTitle=17,
xlUpBars=18,
xlPlotArea=19,
xlDownBars=20,
xlAxis=21,
xlSeriesLines=22,
xlFloor=23,
xlLegend=24,
xlHiLoLines=25,
xlDropLines=26,
xlRadarAxisLabels=27,
xlNothing=28,
xlLeaderLines=29,
xlDisplayUnitLabel=30,
xlPivotChartFieldButton=31,
xlPivotChartDropZone=32
}XlChartItem;
typedefenumXlRowCol
{
xlColumns=2,
xlRows=1
}XlRowCol;


typedefenumXlEnableSelection
{
xlNoRestrictions=0,
xlUnlockedCells=1,
xlNoSelection=0xFFFFEFD2
}XlEnableSelection;
typedefenumXlOrientation
{
xlDownward=0xFFFFEFB6,
xlHorizontal=0xFFFFEFE0,
xlUpward=0xFFFFEFB5,
xlVertical=0xFFFFEFBA
}XlOrientation;


这样就可以用这些常数了，
像是设定图表格式时，可以用xlLineMarkers来取代65~
如果不include也可以，就用数字来代替常数，
像是xlRows就是1，xlColumns是2，xlUnlockedCells是1等等
Borland除了excel_2k.h这个档之外，还有excel_97.h，excel_xp.h这些档，
不过这些有哪些功能不一样我就不清楚了!