更改圖表excel VBA中的點顏色

Question

我有這個圖表，如果圖表中的任何點超過特定限制，那么它的顏色應該改變。

誰能建議我如何在VBA中獲取圖表然后應用這種條件，例如我想要更改上圖中最高點的顏色。 任何幫助將受到高度贊賞。

Answer 1

使用： ActiveWorkbook.Sheets("Sheet1").ChartObjects("Chart1").Chart.SeriesCollection(1)

每個點的顏色是.Points(PointNumber).Interior.Color

你必須循環的點數是.Points.Count

每個點的值是.Points(PointNumber).Value

標記本身的顏色（僅適用於直線，散點圖和雷達圖）：

.Points(PointNumber).MarkerBackgroundColor = RGB(0,255,0)    ' green
.Points(PointNumber).MarkerForegroundColor = RGB(255,0,0)    ' red
.Points(PointNumber).MarkerStyle = xlMarkerStyleCircle ' change the shape

Answer 2

讓我們采取另一種方法，不需要任何代碼。

假設您的數據位於A列（序列號或時間）和B值中，從A2和B2開始，因為您的標簽位於A1和B1中。 我們將在圖表中添加一個系列，其中包括B列中的任何偏差值。此系列將在任何偏離點前面繪制一個標記，以便原始點仍然存在，而不是重新格式化此點，新系列顯示點。

在單元格C1中，輸入“Deviant”。

在單元格C2中，輸入檢測偏離點的公式，例如：

= IF（AND（B2> UPPERLIMIT，B2

如果列B超出上限和下限，則將值放入列C，否則將#N / A置於列C中，＃N / A將不會產生繪制點。

復制C列中的數據，選擇圖表，並將特殊粘貼作為新系列。 將此系列格式化為沒有線條以及您想要用來指示失控點的任何明亮標記。