arcengine根据属性高亮显示图像_Excel图表学习51：根据选择高亮显示图表系列数据点...

ゝ一世哀愁。 2023-01-10 10:00 177阅读 0赞

**学习****Excel****技术，关注微信公众号：**

***excelperfect***

本文分享一个动态图表示例，效果如下图1所示。当按下工作表中不同的按钮时，图表会自动更新，高亮显示相应数据系列的数据点。

![10b869545384994fc69bd8c18595a813.gif][]

图1

制作图表的数据如下图2所示。

![dfdfbdc37a27129d99c493da1ae03c8b.png][]

图2

**步骤****1****：**绘制图表。选择数据单元格区域A2:D6，单击功能区选项卡“插入—图表—带数据标记的折线图”，结果如下图3所示。

![6c028ef42953675295b60dad4fc7dcc2.png][]

图3

**步骤****2****：**绘制形状按钮。单击功能区选项卡“插入—形状—圆角矩形”，如下图4所示。

![c9fa32432b42ea625eb6d93942840341.png][]

图4

在工作表中插入一个圆角矩形，添加文本。同样的操作，再插入2个圆角矩形，并添加文本。将这三个圆角矩形放置到图表上方并排列整齐，如下图5所示。

![74122a8c2a081c9dec479f4e4df5f523.png][]

图5

**步骤****3****：**给圆角矩形按钮命名。选择文本为2016的圆角矩形形状，在工作表左上角的名称框中输入“2016”，如下图6所示。

![9185ca99fd0456e20c1867744d8125be.png][]

图6

同样的操作，给文本为2017和2018的圆角矩形形状分别命名为“2017”和“2018”。

**步骤****4****：**利用公式提取数据。

1.在单元格F2中输入“2016”。

2.在单元格F3中输入公式：

=INDEX($B$3:$D$6,ROWS($E$3:E3),MATCH($F$2,$B$2:$D$2,0))

3.选择单元格F3，下拉至单元格F6，填充公式。

结果如下图7所示。

![1ec46ac0baa64f7d4f4bb7d8515e870a.png][]

图7

**步骤****5****：**在图表中添加并格式化新系列。选择单元格区域F3:F6并复制(按Ctrl+c组合键)，选中图表并粘贴(按Ctrl+v组合键)。此时，在图表中创建了与某一年份相同的数据系列，只是颜色不同，如下图8所示。

![67bb3d0f77c456792a8b8bc004378a24.png][]

图8

1.选取刚创建的新系列，单击右键，选取“设置数据系列格式”命令，设置线条为“无线条”，如下图9所示。

![cf7e2c4eb2c23d206264d5152b1b48f1.png][]

图9

2.在标记选项中，设置内置类型为“圆形”，填充为“无填充”如下图10所示。

![9a194e50493319e49eaf82ca3c04c982.png][]

图10

3.继续设置该系列的数据标记边框格式，设置边框为“实现”，颜色为红色，宽度1.5磅，线型为“短划线”，如下图11所示。

![0f2e220abbe0ed3485975ac6086ce361.png][]

图11

4.选中数据标记，单击右键，添加数据标签，如下图12所示。

![d1389ccaa14856e71b4cc19c0efae910.png][]

图12

5.选中添加的数据标签，设置其数字格式为百分比，结果如下图13所示。

![f5a88bae2f7820592cddd3a62a0bb827.png][]

图13

**步骤****6****：**编写VBA代码。

1.按Alt+F11组合键，打开VBE编辑器，插入标准模块并在其中输入下面的代码：

Sub SelectYear2016()

Range("F2").Value = 2016

ActiveSheet.Shapes("2016").Fill.ForeColor.RGB = RGB(176, 196,222)

ActiveSheet.Shapes("2017").Fill.ForeColor.RGB = RGB(255, 255,255)

ActiveSheet.Shapes("2018").Fill.ForeColor.RGB = RGB(255, 255,255)

End Sub

Sub SelectYear2017()

Range("F2").Value = 2017

ActiveSheet.Shapes("2016").Fill.ForeColor.RGB = RGB(255, 255,255)

ActiveSheet.Shapes("2017").Fill.ForeColor.RGB = RGB(176, 196,222)

ActiveSheet.Shapes("2018").Fill.ForeColor.RGB = RGB(255, 255,255)

End Sub

Sub SelectYear2018()

Range("F2").Value = 2018

ActiveSheet.Shapes("2016").Fill.ForeColor.RGB = RGB(255, 255,255)

ActiveSheet.Shapes("2017").Fill.ForeColor.RGB = RGB(255, 255,255)

ActiveSheet.Shapes("2018").Fill.ForeColor.RGB = RGB(176, 196,222)

End Sub

2.给圆角矩形指定宏。选取文本为2016的矩形并单击右键，单击“指定宏”命令，在“指定宏”对话框中选取SelectYear2016，如下图14所示。

![80631ca955a4277452f49050dbca6e24.png][]

图14

同样，为其它两个形状指定相应的宏。

至此，图表制作完成。当你单击图表上方的矩形按钮时，就会出现前面图1所示的效果。

**小结**

1.关键技术：名称+公式+VBA

2.隐藏的数据系列和图表格式。

![4f10c6ceaf66dec4c77005ea8d4c7673.png][]

[10b869545384994fc69bd8c18595a813.gif]: /images/20221119/48b1f0dad2c748e397b968cd30c8b083.png
[dfdfbdc37a27129d99c493da1ae03c8b.png]: /images/20221119/1a2f09eb74f043b184c9302f8473f6a1.png
[6c028ef42953675295b60dad4fc7dcc2.png]: /images/20221119/74dfe4d9c4a2487d82a3322bf3a6020c.png
[c9fa32432b42ea625eb6d93942840341.png]: /images/20221119/92deb2bd3c3e4fb3b057ab8ddaca9178.png
[74122a8c2a081c9dec479f4e4df5f523.png]: /images/20221119/4129c0fd03444c38ae69b5bac12e04ee.png
[9185ca99fd0456e20c1867744d8125be.png]: /images/20221119/442e53ef902646e7a99129114c2ff94a.png
[1ec46ac0baa64f7d4f4bb7d8515e870a.png]: /images/20221119/4c9fbcd21e754bd29254f088e19627c7.png
[67bb3d0f77c456792a8b8bc004378a24.png]: /images/20221119/df7b315911b9494b9bae6657b5330499.png
[cf7e2c4eb2c23d206264d5152b1b48f1.png]: /images/20221119/5b8f2ef90f284634b20d9bb22f7112db.png
[9a194e50493319e49eaf82ca3c04c982.png]: /images/20221119/ec1cc99de4834eb9982a4f2c80c57d61.png
[0f2e220abbe0ed3485975ac6086ce361.png]: /images/20221119/a907f33a347448f680941a43022bd8c3.png
[d1389ccaa14856e71b4cc19c0efae910.png]: /images/20221119/a1a6a9c6fdf34f099989cb3c795f4005.png
[f5a88bae2f7820592cddd3a62a0bb827.png]: /images/20221119/9bce0b6428cf43da8c7e0167ee55b29e.png
[80631ca955a4277452f49050dbca6e24.png]: /images/20221119/64df1ab212534a58a42fb3582f4bcfcb.png
[4f10c6ceaf66dec4c77005ea8d4c7673.png]: /images/20221119/14e069aca18b41ad9733f8e4e42dc9b4.png