- 帖子
- 508
- 主題
- 53
- 精華
- 0
- 積分
- 583
- 點名
- 83
- 作業系統
- win 10
- 軟體版本
- []
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-3-19
- 最後登錄
- 2024-4-24
          
|
本帖最後由 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
|
|
發表於 2014-8-14 20:22
| 
