帖子: 519
主題: 54
精華: 0
積分: 595
點名: 258
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-8-14 20:22 | 只看該作者

[發問] 圖表 chart 內趨勢線的資料點之 Top Left 座標 VBA如何取得

敬請賢達指導：
下列新加一趨勢線，資料點在 Array 內，執行畫趨勢線後如何取得個資料點的 top left 座標值?
謝謝

  ActiveChart.SeriesCollection.NewSeries.Select
      With Selection
         .Name = "=""AAAA"""
         .XValues = Array(0.12,0.13, 0.14,0.15)    'x_category
         .Values = Array(2.2,2.1,1.8,1.5)                'y_value
         .MarkerStyle = -4142
         With Selection.Format.Line
            .Visible = msoTrue
            .ForeColor.RGB = RGB(255, 0, 0)
            .Transparency = 0
            .Weight = 3#
         End With
      End With

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-8-15 08:26 | 只看該作者

回復 1# Scott090
是這樣嗎?

Option Explicit
Sub Ex()
Dim X, Y
With ActiveChart.SeriesCollection.NewSeries
.XValues = Array(0.12, 0.13, 0.14, 0.15) 'x_category
.Values = Array(2.2, 2.1, 1.8, 1.5) 'y_value
X = .XValues 'X軸數值
Y = .Values 'Y軸數值
MsgBox "Top= " & X(1) & " ,Left= " & Y(1)
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 258
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

3^#

發表於 2014-8-15 21:50 | 只看該作者

回復 2# GBKEE

謝謝指導
能否轉化為相對於chartarea 或 plotarea 的 top left (也許是視窗座標吧? 不確定叫甚麼)
例如 .top = 250
.left = 55
再感恩

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 258
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

4^#

發表於 2014-8-16 07:57 | 只看該作者

本帖最後由 Scott090 於 2014-8-16 08:10 編輯

回復 2# GBKEE

'特定資料點(0.15,1.5) 的 Top, Left 如何取得??
請參考附件，謝謝

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 258
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

5^#

發表於 2014-8-16 08:16 | 只看該作者

回復 3# Scott09
附件

Chart sample.rar (17.53 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2014-8-17 07:27 | 只看該作者

本帖最後由 GBKEE 於 2014-8-17 07:28 編輯

回復 5# Scott090

特定資料點(0.15,1.5) 的 Top, Left 如何取得, 功力不夠幫不上忙.
如圖: 滑鼠移到資料點可顯示出資料點的數值,為何還要加上說明.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 258
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

7^#

發表於 2014-8-17 08:00 | 只看該作者

回復 6# GBKEE

謝謝大師熱心地回應

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2014-8-18 10:40 | 只看該作者

回復 7# Scott090
幫你練一下功,試試看

Option Explicit
Sub Ex()
Dim X(), Y(), XLeft As Single, Ytop As Single, i As Integer
Dim P As PlotArea, C As Chart, S As Shapes
Set C = ActiveSheet.ChartObjects(1).Chart '指定圖表
Set P = C.PlotArea
X = C.SeriesCollection(1).XValues 'X軸數值
Y = C.SeriesCollection(1).Values 'Y軸數值
i = 3 '指定數值點.
With C.Axes(1) 'xlCategory 'X軸
XLeft = P.InsideWidth / (.MaximumScale - .MinimumScale)
'點數間距的寬度
End With
With C.Axes(2) 'xlValue 'Y軸
Ytop = P.InsideHeight / (.MaximumScale - .MinimumScale)
''點數間距的高度
End With
XLeft = P.InsideLeft + (XLeft * X(i))
Ytop = P.InsideTop + P.InsideHeight - (Ytop * Y(i))
Set S = C.Shapes
If S.Count <> 0 Then
C.Parent.Activate
S.SelectAll
Selection.Delete
End If
With C.Shapes.AddShape(msoShapeRectangle, Left:=XLeft, Top:=Ytop, Width:=100, Height:=50)
.TextFrame.Characters.Text = "附加說明1:" & Chr(10) & "X: " & X(i) & Space(5) & "Y: " & Y(i)
End With
C.Parent.Parent.Activate
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 258
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

9^#

發表於 2014-8-18 21:12 | 只看該作者

本帖最後由 Scott090 於 2014-8-18 21:14 編輯

回復 8# GBKEE

非常感恩大師熱情的指導
由 PlotArea 視窗直接計算資料點位置一定是非常的穩健的做法

另，有找到資料點的屬性 Points().top Points().left，其穩健性如何不得而知，大膽列出來給參考：

Sub Ex2()
Dim X(), Y(), XLeft As Single, Ytop As Single, i As Integer
Dim P As PlotArea, C As Chart, S As Shapes
Set C = ActiveSheet.ChartObjects(1).Chart '指定圖表
X = C.SeriesCollection(1).XValues 'X軸數值
Y = C.SeriesCollection(1).Values 'Y軸數值
i = 3 '指定數值點.
Ytop = C.SeriesCollection(1).Points(i).Top '資料點 i 的 Top 值
XLeft = C.SeriesCollection(1).Points(i).Left '資料點 i 的 left 值
With C.Shapes.AddShape(msoShapeRectangle, Left:=XLeft, Top:=Ytop, Width:=100, Height:=50)
.TextFrame.Characters.Text = "附加說明1:" & Chr(10) & "X: " & X(i) & Space(5) & "Y: " & Y(i)
End With
Range("E10").Select
End Sub