文件名称：更复杂的图表示例-mathematical statistics with applications
文件大小：13.45MB
文件格式：PDF
更新时间：2024-06-22 07:59:53
excel,VBA
18.4 执行修改后的图表代码 现在，我们已经录制和修改了代码，要看宏再次执行后的效果，请执行下面的步骤： 1）选择区域A1: B3。 2）运行M y P i e C h a r t宏过程，你是否注意到即使刚才只选择了三行数据，但是饼图中却包 括了所有六行数据。 3）删除工作表上的所有饼图。 4）查看M y P i e C h a r t过程。不管选择了几行数据，饼图中始终包括六行数据的原因在于下 面的语句： ActiveChart. SetSourceData＿ Source := Sheets (" Sheet1"). Range (" A1: B6"), PlotBy := _ X l C o l u m n s 5）在M y P i e C h a r t过程的上部输入下面的代码行： Dim rCurrentRange As Range Set rCurrentRange = Selection 6）把步骤4中的Sheets (" Sheet1"). Range (" A1: B6")用r C u r r e n t R a n g e来替代，修改后的 代码行应该是下面这样的： ActiveChart. SetSourceData Source := rCurrentRange, PlotBy :=＿ X l C o l u m n s 7）返回到工作簿。 8）选择区域A1: B3，运行MyPieChart宏过程，结果饼图就只有两个部分了，如图18-3所示。 18.5 更复杂的图表示例 下面的图表代码示例将分析选中的数据源，从而确定图形类型应该是饼图还是条形图。 如果选中的数据只有两列的话，就准备绘制饼图；如果选中的数据超过两列，就绘制条形图。 请执行下面的步骤： 第18学时 图 表使用155 图18-3 通过使用S e l e c t i o n 属性，可以使过程 变得更加灵活