图表能够使枯燥的数字变得直观生动，通过 Python 可以控制 Excel 图表的普通属性，Excel VBA则几乎可以控制图表的所有属性。本章将介绍通过 Python 代码结合 VBA 操作 Excel 图表，实现图表自动化。
9.1自动创建图表
Excel 图表根据在工作表中存在的形式分为嵌入式图表和图表工作表，下面以图 9-1 所示的数据源为例，介绍如何使用 Python 代码结合 VBA 分别创建两种图表。
9.1.1创建嵌入式图表
根据图 9-1 所示的数据源创建嵌入式图表，设置图表类型为簇状柱形图，同时设置图表标题，并且为所有的数据系列都显示一个默认的数据标签。演示代码如下。
代码解析
第 1 行代码导入 os 库，用于后续处理路径。
第 2 行代码导入 xlwings 库，并起别名为 xw。
第 3 行代码从 xlwings 库中导入常量 RowCol，用于后续设置图表的数据系列。
第 5 行代码使用 os.path 模块的 dirname 函数获取 Python 文件所在目录，其中 __file__ 属性返回Python 文件的全路径。
第 6 行代码使用 os.path 模块的 join 函数拼接目录名和文件名获取示例 Excel 文件的全路径。
第 7 行代码使用 xw.Book 打开示例 Excel 文件获取工作簿对象，并赋值给变量 wb。
第 8 行代码使用工作簿对象 wb 的 sheets 属性获取名为“Sheet1”的工作表，并赋值给变量sheet。
第 9 行代码中的 sheet.charts 返回 Charts 对象，调用该对象的 add 方法在当前工作表中添加嵌入图表，并返回 Chart 对象赋值给变量 chart。该图表的左上角坐标点为 (0, 50)，宽和长分别为 400 和300。Charts 对象的 add 方法语法如下：
add 方法的所有参数都是可选的。
参数 left 和 top 为浮点类型，表示图片左上角相对于工作表左上角的水平和垂直坐标，默认为 0。
参数 width 和 height 为浮点类型，表示图表的宽度和高度。
第 10 行代码指定工作表的 A1:E3 单元格区域作为图表数据源。sheet.range(‘A1:E3’) 返回指定单元格区域的 Range 对象；Chart 对象的 set_source_data 方法接收 Range 对象作为入参，用来设置图表的数据源。
第 11 行代码设置图表名称。
第 12 行代码设置图表类型为簇状柱形图。xlwings 库支持的图表类型非常丰富，表 9-1 列举了部分类型，更多内容请参阅 xlwings 官方文档。
第 13 行代码获取 VBA Chart 对象。由于 xlwings 提供的 Chart 对象不支持设置数据系列使用的方式、数据标签等，需要借助 VBA 的能力来实现。
第 14 行代码指定数据系列取自数据列。PlotBy 属性值可以是常量 RowCol.xlColumns（表示列）或 RowCol.xlRows（表示行）。
第 15 行代码在所有系列显示默认的数据标签。VBA Chart 对象的 ApplyDataLabels 方法的语法如下：
全部参数均可选，其中参数 Type 指定数据标签的类型，其值可使用表 9-2 列举的 DataLabelsType（xlwings.contants.DataLabelsType）常量。
参数 LegendKey 为布尔类型，指定是否在数据点旁边显示图例项。
参数 AutoText 为布尔类型，指定是否根据内容自动生成相应的文字。
参数 HasLeaderLines 应用于 Chart 和 Series 对象时有效，如果数据系列有引导线，则为 True。
参数 ShowSeriesName 为布尔类型，指定对象是否在数据标签中显示系列名称。
参数 ShowCategoryName 为布尔类型，指定对象是否在数据标签中显示分类名称。
参数 ShowValue 为布尔类型，指定对象是否在数据标签中显示值。
参数 ShowPercentage 为布尔类型，指定对象是否在数据标签中显示百分比。
参数 ShowBubbleSize 为布尔类型，指定对象是否启用数据标签的气泡大小。
参数 Separator 指定数据标签的分隔符。
第 16 行代码设置图表有可见标题。
第 17 行代码设置图表标题文本。当指定图表有可见标题时（HasTitle 属性值为 True），VBA Chart 对象的 ChartTitle 属性返回 VBA ChartTitle 对象，其 Text 属性可以返回或设置对象中的文本。
运行示例 Python 文件，在示例 Excel 的 Sheet1 工作表中即出现如图 9-2 所示的嵌入式图表。
|
|
|
打开微信扫一扫，Office自学网
专注分享软件安装和视频教程，让你一号在手，办公无忧！
