返回列表 上一主題 發帖

[發問] 關於trend chart VBA寫法。 ActiveChart.SeriesCollection(1).Points(I).Select

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-6-9 14:55 | 只看該作者

[發問] 關於trend chart VBA寫法。 ActiveChart.SeriesCollection(1).Points(I).Select

2017-06-09_144502.jpg


活頁簿1.tar (38 KB)

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

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
收藏 分享

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
3#
發表於 2017-6-9 23:19 | 只看該作者
回復 2# stillfish00

謝謝! stillfish00

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 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)
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題