返回列表下一主題上一主題發帖

[發問] 無法取得 scatter plot 的value

swatt

中學生 Rank: 2

帖子: 37
主題: 11
精華: 0
積分: 87
點名: 0
作業系統: window7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-14
最後登錄: 2022-5-30

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2022-5-27 21:50 | 只看該作者

[發問] 無法取得 scatter plot 的value

請教各位大師，
目前表格內已經畫好一個 scatter plot，
想用以下語法要取得 scatter plot 的value，卻出現錯誤，
用watch視窗查看cht.SeriesCollection(1).Values 是有值的，為何debug.print cht.SeriesCollection(1).Values(2) 這一句會錯誤?

Sub get_scatter_point_value()

Dim cht As Chart, pt As Point

Set cht = ActiveSheet.ChartObjects(1).Chart

Debug.Print cht.SeriesCollection(1).Values(2)

End Sub

scatter.jpg (137.54 KB)

樓主熱帖

swatt

中學生 Rank: 2

帖子: 37
主題: 11
精華: 0
積分: 87
點名: 0
作業系統: window7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-3-14
最後登錄: 2022-5-30

5^#

發表於 2022-5-29 15:54 | 只看該作者

回復 4# quickfixer

Hi quickfixer,
謝謝你提供的辦法，又學到了不少，VBA裏頭真的有不少的眉眉角角~

TOP

quickfixer

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 30
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-11-25

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

TOP

swatt