[VBA]动态折线图表上不显示数据点为"0”值的（极）点

xuwenning

在作趋势图时会遇到0的情况



有时0值经常就表示没有的情况，如果显示在图表上会引起误解



下面的附件采用VBA对折线图优化使数据出现0的情况时不显示该数据点



Sub 图表数据点美化()

'xunwening 记录
'数据点为“0”或Null值图形不显示
'

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  Dim Ser As Series

    Dim i As Long
    Dim k As Long
    Set Ser = ActiveChart.SeriesCollection(1)
    Debug.Print Ser.Points.Count
    With Ser.Border
        .ColorIndex = 55
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
            
    With Ser
        .MarkerBackgroundColorIndex = 3 '前景颜色
        .MarkerForegroundColorIndex = 55 '背景颜色
        .MarkerStyle = xlDiamond        '样式
        .Smooth = False
        .MarkerSize = 4                 '大小
        .Shadow = False                 '阴影
            
    End With
   
    For i = 1 To Ser.Points.Count
        k = i + 1
'判断图表上数据点的值为“0”或Null值
'如果第i点值为空那么必须清除第i点和第i+1点的数据系列格式

        If Ser.Values(i) = 0 Then
        
'清除第i点的：数据系列格式—图案—线型
            With Ser.Points(i).Border
                .Weight = xlHairline
                .LineStyle = xlNone
            End With
'清除第i点的：数据系列格式—图案—数据标记

             With Ser.Points(i)
            '.MarkerBackgroundColorIndex = 3            '前景颜色
            '.MarkerForegroundColorIndex = xlAutomatic  '背景颜色
            .MarkerStyle = xlNone 'xlDiamond            '样式
            .MarkerSize = 5                             '大小
            '.Shadow = False
            End With
            
            If k = Ser.Points.Count Then Exit For
            
'清除第i+1点的：数据系列格式—图案—线型
            With Ser.Points(k).Border
                .Weight = xlHairline
                .LineStyle = xlNone
            End With
            
        End If
    Next i
   
              
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
End Sub
折线图美化.rar (12.82 KB, 下载次数: 137)

2010-5-28 13:55 上传

点击文件名下载附件

[ 本帖最后由 xuwenning 于 2010-5-28 16:33 编辑 ]

snood

空单元格会报错

xuwenning

原帖由 snood 于 2010-5-28 15:27 发表
空单元格会报错

一般不建议使用空单元格－——空单元格数据可以转换为0值
如果非要用空单元格
修改代码
..................................
If Ser.Values(i) = 0 Then
.........................
为：
..........................................
If  Ser.Values(i) = 0  or  Ser.Values(i) = " " Then
............................................
其他不用改变

[ 本帖最后由 xuwenning 于 2010-5-28 15:50 编辑 ]

xuwenning

另
代码中没有错误处理机制，请自行添加

dul

谢谢分享，学习了

xuwenning

原帖由 dul 于 2010-5-29 07:34 发表
谢谢分享，学习了

谢谢DUL的捧场
你的大作我是下载了不少的