VBA图着色

Question

我遇到了使用VBA对来自图表的选定记录进行着色的问题。

我已经得到了一些代码，它为我的图表中的每条记录着色。这里是：

SeriesCount = MyChart.SeriesCollection.Count 
For i = 1 To SeriesCount 
    MyChart.SeriesCollection(i).Interior.Color = RGB(255, 0, 0) 
Next 

我想要的是改变所选记录的颜色，例如20下面的图片。感谢帮助。

Answer 1

您可以通过硬位置代码它。如果你需要搜索20

ActiveChart.SeriesCollection(1).Points(5).Interior.color = RGB(55, 130, 150) 

---

，这是一个有点难度：因为20是图中的第五点，你可以使用此代码。

Sub color() 
    Dim MyChart As Chart 
    Set MyChart = ActiveChart 

    SeriesCount = MyChart.SeriesCollection.Count 
    For i = 1 To SeriesCount 
     Set s = MyChart.SeriesCollection(i) 
     vals = s.XValues 

     For x = LBound(vals) To UBound(vals) 
      If vals(x) = 20 Then 
      s.Points(x).Interior.color = RGB(55, 130, 150) 
      Else 
      s.Points(x).Interior.color = RGB(255, 0, 0) 
      End If 
     Next x 
    Next 
End Sub 

---

测试：