標題: [發問] 關於trend chart VBA寫法。 ActiveChart.SeriesCollection(1).Points(I).Select [打印本頁]

---

作者: chiang0320    時間: 2017-6-9 14:55     標題: 關於trend chart VBA寫法。 ActiveChart.SeriesCollection(1).Points(I).Select

[attach]27310[/attach]
[attach]27312[/attach]
[attach]27313[/attach]
[attach]27311[/attach]

我要將日期以後的點，標記變大
請問各位學長以下這樣寫哪裡有問題? 會有我要的結果，但是會出現錯誤?
如果除了變大以外，再加上變顏色，如紅色要怎麼寫? 謝謝!

Public Sub bb()
    a = Sheets("工作表2").Range("P3") + 1
    b = Sheets("工作表2").Range("P3") + Sheets("工作表2").Range("P4") + 1
    For I = a To b
'選取日期之後的點
    ActiveSheet.ChartObjects("圖表 2").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Points(I).Select
'將選取的點，Size改為10
    Selection.MarkerSize = 10
    Next
End Sub

---

作者: stillfish00    時間: 2017-6-9 16:00

回復 1# chiang0320
1.
b = Sheets("工作表2").Range("P3") + Sheets("工作表2").Range("P4") + 1
    = 99+52+1 = 152
超出資料點範圍

2.
變紅色
Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)

---

作者: chiang0320    時間: 2017-6-9 23:19

回復 2# stillfish00

謝謝! stillfish00

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)