我正在嘗試更改圖表上一點的線條顏色。圖表系列是線系列。我想更改該系列第二個點的線條顏色。
我想做的基本上是這樣的：
我正在使用以下代碼：
'pts < this is points object
'pt < this is point object
pt = pts.Item(3)
pt.Format.Line.ForeColor.RGB = RGB(150, 150, 150)
所有物件都被正確參考，一切正常。它不會產生任何錯誤，但此代碼格式化標記的行（即使行系列沒有標記！）。無論我嘗試什么，我都會格式化標記線（又名邊框）。我找不到格式化特定點線的方法（如上圖所示）。
是否有任何“隱藏”組合可以讓我這樣做？
uj5u.com熱心網友回復：
您可以設定點的 Format.Line 的前景色，如下所示：
Sub colorSegment()
Dim ws As Worksheet
Dim cht As Chart
Set ws = ActiveSheet
Set cht = ws.ChartObjects("Chart 1").Chart
With cht.SeriesCollection(1)
.Points(4).Format.Line.ForeColor.RGB = RGB(150, 150, 150)
.Points(7).Format.Line.ForeColor.RGB = RGB(150, 150, 150)
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/364871.html
上一篇：括號中的WordVBA宏
下一篇：VBA更改切換按鈕的狀態