VBA编程24学时教程018.docx

《VBA编程24学时教程018.docx》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、第18学时图表Excel最受欢迎的一个特性就是它强大的图表功能，你在自己的应用程序中显然也要用到这个特性。在这个学时中，将录制创建图表的步骤，然后使用VisualBasic编辑器来修改所生成的代码。这个学时的重点包括：•录制图表的创建过程•编辑录制的代码•执行修改过的代码•创建一个更复杂的图表示例18.1创建图表作为Excel的用户，你对创建图表可能很熟悉。如果知道怎样创建图表，就具备了自动创建图表时所需要的技能了。你也许会问：“为什么这样说？”因为录制了创建图表的绝大多数处理过程，然后根据需要对录制的代码进行稍微修改就可以了。18.2使用图表向导和宏录制

2、器知道了要制成图表的内容以后，要做的第一件事情是打开宏录制器，现在准备创建希望的图表、并作出任何必要的格式修改，然后关闭宏录制器，浏览录制下来的代码。下面我们来创建一个饼图。首先确保关闭了所有的工作簿，然后打开一个新工作簿，输入表18-1中的数据。表18-1用来制图的数据单元格值A1ItemA2ApplesA3BananasA4OrangesA5LemonsA6PearsB1SalesB21250B3795B41400B51000B61550把单元格A1到B1改成粗体，完成后的工作表如图18-1所示。接下来，选择区域A1:B6，选择菜单命令“工具”、“宏”

3、、“录制新宏”，把宏命名为MyPieChart，并把这个宏存储在这个工作簿中，现在准备开始录制宏。第18学时图表使用153首先，启动“图表向导”，选择“饼图”作为“图表”类型，第2步和第3步都单击“下一步”按钮，然后选择“数据标志”选项卡，选择“显示百分比”，单击“下一步”以显示“图表向导”中的最后一个对话框。饼图现在就完成了，但是，应该自定义和重新命名这个图，可以通过选择饼图的标题（现在是Sales）来完成。用鼠标右键单击标题，从弹出的菜单中选择“格式化图表标题”。图18-1工作表中的数据将用来创建图表选择“字体”选项卡，把字体选择为14磅、粗体、斜体。

4、关闭“格式”对话框以后，就停止录制宏。这时应该看到完成的饼图如图18-2所示。图18-2这个饼图是使用“图表向导”来创建的这个过程很容易吧！现在需要学习怎样编辑刚才录制下来的代码，以便最大限度地利用宏的功能。154使用中文Excel2000编程24学时教程18.3编辑录制的代码现在，可以按下Alt+F11组合键切换到VisualBasic编辑器中，浏览刚才录制下来的代码。可能需要在“工程资源管理器”中展开当前的工作簿，然后打开“模块”文件夹来找到这个录制下来的过程，程序清单18-1给出了这个录制宏的完整代码：程序清单18-1MyPieChart过程的完整代

5、码1:SubMyPieChart()2:Charts.Add3:ActiveChart.ChartType=xlPie4:ActiveChart.SetSourceDate_5:Source:=Sheets("Sheet1").Range("A1:B6"),PlotBy:=xlColumns6:ActiveChart.LocationWhere:=xlLocationAsObject,Name:="Sheet1"7:ActiveChart.ApplyDataLabels_Type:=xlDataLabelsShowPercent,LegendKey:=Fa

6、lse_8:,HasLeaderLines:=True9:ActiveChart.ChartTitle.Select10:Selection.AutoScaleFont=True11:WithSelection.Font12:.Name="Arial"13:.FontStyle="BoldItalic"14:.Size=1415:.Strikethrough=False16:.Superscript=False17:.Subscript=False18:.OutlineFont=False19:.Shadow=False20:.Underline=xlUn

7、derlineStyleNone21:.ColorIndex=xlAutomatic22:.Background=xlAutomatic23:EndWith24:EndSub录制下来的第一个操作转换成了Charts集合上的Add方法：Charts.Add这立即让你知道刚才创建的集合和对象类型。创建了图表以后，录制宏的其余代码设置了各种属性，执行了一些方法。过程中引用的ActiveChart是Application对象的一个属性，它返回当前活动的图表。ChartType属性设置为xlPie（第3行），这个值是Excel中代表饼图的一个常量。接下来，在代码中的

8、第4行执行了SetSourceData方法，把数据源设置为所选中的