添加散点图数据标签如果XValue>值

我有一个100 +系列散点图，我想添加一些数据标签的水平值大于垂直值的系列 – 即XValue>价值。

我使用下面的代码将数据标签添加到所有系列：

Dim mySeries As Series Dim seriesCol As SeriesCollection Dim i As Integer Set seriesCol = ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection For Each mySeries In seriesCol Set mySeries = ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection(j) With mySeries .ApplyDataLabels .DataLabels.ShowSeriesName = True .DataLabels.ShowValue = False .DataLabels.Font.Size = 6 End With j = j + 1 Next 

我会假设我会在“With”命令之前添加一个“If”命令，如下所示：

 If ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection(j).XValues > _ ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection(j).Values Then 

但是，这种情况似乎并不奏效。 如果你能指出我出错的地方，我会很感激的。

谢谢！