vba - 控制excel图表曲线的隐藏

最新推荐文章于 2024-09-22 20:54:01 发布

原创最新推荐文章于 2024-09-22 20:54:01 发布 · 3k 阅读

5 ·

CC 4.0 BY-SA版权

Excel - vba 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一段VBA代码，用于在Excel中实现图表线条的显示与隐藏切换功能。通过一个子程序channel_1_click，利用静态变量nflag控制图表线条的可见状态。当点击事件触发时，代码会激活指定的图表对象，选择第一个系列，并根据nflag的值设置线条的可见性。

Private Sub channel_1_click()
Static nflag As Integer
If (nflag = 0) Then
nflag = 1
End If
If (nflag = 1) Then
ActiveSheet.ChartObjects("图表 1").Activate '图1
ActiveChart.SeriesCollection(1).Select
Selection.Format.Line.Visible = msoTrue '设为显示
nflag = 2
Range("A1").Select
ElseIf (nflag = 2) Then
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.SeriesCollection(1).Select
Selection.Format.Line.Visible = msoFalse ' 设为隐藏
nflag = 1
Range("A1").Select
End If
End Sub