- 帖子
- 154
- 主題
- 1
- 精華
- 0
- 積分
- 200
- 點名
- 1
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2025-1-1
|
4#
發表於 2022-5-28 22:09
| 只看該作者
本帖最後由 quickfixer 於 2022-5-28 22:24 編輯
我以前問01的s大
他建議我如果只是取單點,可用這2種方式,你參考一下
第一種,放在你程式碼內
WorksheetFunction.Index(cht.SeriesCollection(1).Values,位置)
你的就是1~5
Debug.Print WorksheetFunction.Index(cht.SeriesCollection(1).Values,2)
不dim、set,用一行
Debug.print WorksheetFunction.Index(ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Values,1)
第二種
Sub test()
Dim cht As Series
Set cht = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
Debug.Print cht.Values(1)
End Sub |
|