12
返回列表 上一主題 發帖

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

Scott090

帖子
522 
主題
55 
精華
0 
積分
599 
點名
45  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2025-2-22 

2024年全勤獎章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

帖子
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
是這樣嗎?
  1. Option Explicit
  2. Sub Ex()
  3.     Dim X, Y
  4.     With ActiveChart.SeriesCollection.NewSeries
  5.         .XValues = Array(0.12, 0.13, 0.14, 0.15)   'x_category
  6.         .Values = Array(2.2, 2.1, 1.8, 1.5)        'y_value
  7.         X = .XValues 'X軸數值
  8.         Y = .Values 'Y軸數值
  9.         MsgBox "Top= " & X(1) & " ,Left= " & Y(1)
  10.     End With
  11. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

Scott090

帖子
522 
主題
55 
精華
0 
積分
599 
點名
45  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2025-2-22 

2024年全勤獎章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

帖子
522 
主題
55 
精華
0 
積分
599 
點名
45  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2025-2-22 

2024年全勤獎章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

帖子
522 
主題
55 
精華
0 
積分
599 
點名
45  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2025-2-22 

2024年全勤獎章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

帖子
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

帖子
522 
主題
55 
精華
0 
積分
599 
點名
45  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2025-2-22 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章
7#
發表於 2014-8-17 08:00 | 只看該作者
回復 6# GBKEE


    謝謝大師熱心地回應

TOP

GBKEE

帖子
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
幫你練一下功,試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim X(), Y(), XLeft As Single, Ytop As Single, i As Integer
  4.     Dim P As PlotArea, C As Chart, S As Shapes
  5.     Set C = ActiveSheet.ChartObjects(1).Chart  '指定圖表
  6.     Set P = C.PlotArea
  7.     X = C.SeriesCollection(1).XValues 'X軸數值
  8.     Y = C.SeriesCollection(1).Values  'Y軸數值
  9.     i = 3   '指定數值點.
  10.     With C.Axes(1) 'xlCategory  'X軸
  11.          XLeft = P.InsideWidth / (.MaximumScale - .MinimumScale)
  12.          '點數間距的寬度
  13.     End With
  14.     With C.Axes(2)   'xlValue  'Y軸
  15.         Ytop = P.InsideHeight / (.MaximumScale - .MinimumScale)
  16.         ''點數間距的高度
  17.     End With
  18.     XLeft = P.InsideLeft + (XLeft * X(i))
  19.     Ytop = P.InsideTop + P.InsideHeight - (Ytop * Y(i))
  20.     Set S = C.Shapes
  21.     If S.Count <> 0 Then
  22.         C.Parent.Activate
  23.         S.SelectAll
  24.         Selection.Delete
  25.     End If
  26.     With C.Shapes.AddShape(msoShapeRectangle, Left:=XLeft, Top:=Ytop, Width:=100, Height:=50)
  27.         .TextFrame.Characters.Text = "附加說明1:" & Chr(10) & "X: " & X(i) & Space(5) & "Y: " & Y(i)
  28.     End With
  29.     C.Parent.Parent.Activate
  30. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

Scott090

帖子
522 
主題
55 
精華
0 
積分
599 
點名
45  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2025-2-22 

2024年全勤獎章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，其穩健性如何不得而知，大膽列出來給參考：
  1. Sub Ex2()
  2.     Dim X(), Y(), XLeft As Single, Ytop As Single, i As Integer
  3.     Dim P As PlotArea, C As Chart, S As Shapes
  4.    
  5.     Set C = ActiveSheet.ChartObjects(1).Chart  '指定圖表
  6.     X = C.SeriesCollection(1).XValues 'X軸數值
  7.     Y = C.SeriesCollection(1).Values  'Y軸數值
  8.     i = 3   '指定數值點.
  9.    
  10.     Ytop = C.SeriesCollection(1).Points(i).Top      '資料點 i 的 Top 值
  11.     XLeft = C.SeriesCollection(1).Points(i).Left    '資料點 i 的 left 值
  12.    
  13.     With C.Shapes.AddShape(msoShapeRectangle, Left:=XLeft, Top:=Ytop, Width:=100, Height:=50)
  14.         .TextFrame.Characters.Text = "附加說明1:" & Chr(10) & "X: " & X(i) & Space(5) & "Y: " & Y(i)
  15.     End With
  16.    
  17.     Range("E10").Select
  18. End Sub
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2014-8-19 07:18 | 只看該作者
回復 9# Scott090
2003版Points沒有這些屬性
  1.   Ytop = C.SeriesCollection(1).Points(i).Top      '資料點 i 的 Top 值
  2. XLeft = C.SeriesCollection(1).Points(i).Left    '資料點 i 的 left 值
複製代碼
試試看
  1. Sub Ex()
  2.     Dim P As Point, C As Chart, i As Integer
  3.     Set C = ActiveSheet.ChartObjects(1).Chart  '指定圖表
  4.     i = 2   '指定數值點
  5.     With C.SeriesCollection(1)
  6.         .HasDataLabels = True
  7.         .DataLabels.Delete
  8.     End With

  10.     Set P = C.SeriesCollection(1).Points(i)
  11.     P.ApplyDataLabels xlDataLabelsShowLabel, ShowValue:=True
  12.     With P.DataLabel
  13.         .Interior.ColorIndex = 35
  14.         .Characters.Text = "附加說明1:  " & vbLf & .Characters.Text
  15.     End With
  16. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
12
返回列表 上一主題