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

最新推荐文章于 2024-06-26 10:53:13 发布

_Abert

最新推荐文章于 2024-06-26 10:53:13 发布

阅读量2.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： Excel - vba

本文链接：https://blog.youkuaiyun.com/Code_NewGame/article/details/83269103

Excel - vba 专栏收录该内容

2 篇文章

订阅专栏

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

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

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