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

 

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

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

Variant Excel,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
 String Charttitle="test chart!!";
 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中啰!

底下列出图表格式常数的定义:
typedef enum XlChartType
{
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的背景图案
String BmpPath;
BmpPath="C:/background.bmp";
  if(FileExists(BmpPath))
   Worksheet.OleFunction("SetBackgroundPicture",BmpPath.c_str());
保护sheet
Worksheet.OleFunction("Protect","password",true,true,true,true) ;
Protect函式的定义如下:
template HRESULT /*[VT_HRESULT:0]*/ __fastcall
_WorksheetDispT::Protect(VARIANT Password/*[in,opt]*/, VARIANT DrawingObjects/*[in,opt]*/, 
                        VARIANT Contents/*[in,opt]*/, VARIANT Scenarios/*[in,opt]*/, 
                        VARIANT UserInterfaceOnly/*[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]*/;
  return OleFunction(_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内容是:


typedef enum Constants
{
  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;


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


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


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


typedef enum XlChartType
{
  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;


typedef enum XlChartItem
{
  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;
typedef enum XlRowCol
{
  xlColumns = 2, 
  xlRows = 1
} XlRowCol;


typedef enum XlEnableSelection
{
  xlNoRestrictions = 0, 
  xlUnlockedCells = 1, 
  xlNoSelection = 0xFFFFEFD2
} XlEnableSelection;
typedef enum XlOrientation
{
  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这些档，
不过这些有哪些功能不一样我就不清楚了!