使用Chart.CreateSimpleChart创建条形图.docx

【e800编译】此示例演示如何以编程的方式在Microsoft Office 2010中创建一个简单的条形图。此代码段是Office 2010的101项VBA代码示例中的一部分。与其它示例一样，这些将可以直接写入您的代码中。每块示例代码包含约5至50行的代码，分别演示了一个独特的功能或功能集，在VBA或VB以及C＃中（在Visual Studio 2010中创建）。每个示例之中都会包含代码以及相应注释，这样您就可以直接运行获取预期的结果，或者是根据代码注释提示来调整环境，运行示例代码。Microsoft Office 2010提供了你所需要的工具来创建功能强大的应用程序。Microsoft Visual Basic Application（VBA）代码示例可以帮助你创建自己的应用程序，以执行特定功能或者以此为出发点实现更为复杂的功能。实例代码将下面的代码粘贴到一个新建演示文稿中的一个模块。选择“Tools”，然后选择“Reference”，并添加一个参考到Microsoft Excel14.0对象模型中。同样，你可以很容易地稍作修改并将它在Word文档里实现。运行本实例，查看程序中创建的一个简单条形图。SubCreateChart() Create a very simple chart.DimchtAsChartDimchtDataAsChartDataDimwbAsExcel.WorkbookDimwsAsExcel.Worksheet Create the chart and set a reference to the chart data.DimshpAsShapeSetshp=ActivePresentation.Slides(1).Shapes.AddChart(xlBarClustered,10,10,500,200) You can interact with the Shape object here, if you need to. Retrieve the chart contained within the shape. Although you know the shape contains a chart in this example, you can always use the Type property to verify that the shape youre working with is indeed a chart before you try to retrieve its Chart property:Ifshp.TypemsoChartThenExitSubEndIfSetcht=shp.Chart Every new chart has an Excel workbook that contains its data.Setwb=cht.ChartData.WorkbookSetws=wb.Worksheets(1) Add the data to the workbook. Resize the table, which is always called Table 1:ws.ListObjects(Table1).Resizews.Range(A1:B5) Set the title for the series:ws.Range(B1).Value=Regional Sales Put the data in the rows of the worksheet:ws.Range(A2:B2).Value=Array(North,125)ws.Range(A3:B3).Value=Array(South,12)ws.Range(A4:B4).Value=Array(East,97)ws.Range(A5:B5).Value=Array(West,150) Force the chart to retrieve its data and redraw itself:cht.ApplyDataLabelsxlDataLabelsShowValue If you want to quit Excel, uncomment this line: wb.Application.QuitEndSub