EXCEL VBA 操作图表

最新推荐文章于 2025-05-24 18:26:34 发布

loglm

最新推荐文章于 2025-05-24 18:26:34 发布

阅读量3.8k

点赞数 2

CC 4.0 BY-SA版权

文章标签： p2p 网络协议

本文链接：https://blog.youkuaiyun.com/loglm/article/details/124728821

本文介绍了如何使用VBA在Excel中获取活跃图表的数量，通过MsgBox显示，并演示了如何在图表底部添加图例，同时展示了如何为多行数据创建散点图。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1. 获取当前表格的图标个数

ActiveSheet.ChartObjects.Count

2. 弹出消息框

MsgBox ("active charts num = " & x)

Sub ChartCnt()
x = ActiveSheet.ChartObjects.Count
MsgBox ("active charts num = " & x)
End Sub

3. 图标显示图例

ActiveChart.SetElement (msoElementLegendBottom)

在图表底部显示图例。先对所有数据画图，最后设置显示图例。

参阅 MsoChartElementType 枚举 (Office) 说明，

MsoChartElementType 枚举 (Office) | Microsoft Docs

4. 多行数据画图

图表的数据源系列对象 Series，可以对其名称，数据源，

Sub testPlot()
Dim ns As Series // 定义对象
'ActiveSheet.ChartObjects.Delete
Range("B2:iv2").Select
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
For i = 2 To 15
Set ns = ActiveChart.SeriesCollection.NewSeries
ns.Name = Cells(i, "a").Text
ns.Values = Range("c" & i, "iv" & i)
Next i

ActiveChart.SetElement (msoElementLegendBottom)
End Sub