EXCEL VBA グラフで値が「0」の場合、データラベルを表示しない

Sub Macro1()
'値が0のラベルを非表示

  With ActiveSheet.ChartObjects(1).Chart
    For i = 1 To .SeriesCollection.Count
      tmp = .SeriesCollection(i).Values
      For j = 1 To UBound(tmp)
        If tmp(j) = 0 Then
            With .SeriesCollection(i).Points(j)
                .HasDataLabel = False
            End With
        End If
      Next j
    Next i
   End With
   
End Sub