作者chasta (chase)
看板Visual_Basic
標題[VBA ] 讀取Chart中Trendline Formula
時間Mon Mar 27 21:32:30 2017
之前在EXCEL 2003之中，用以下這段可以將Chart中的公式擷取出來
For A = 1 To ChartCount
WS.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
With Selection
.NumberFormat = "0.0000E+00"
B = .Caption
End With
Next A
可是在EXCEL 2010版本中，雖然依然可以抓取公式
但是NumberFormat似乎無法將Trendline更改為科學記號
不知道有沒有甚麼解決辦法? 感謝~
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 203.187.49.25
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1490621555.A.595.html
1F：推 hulapig: NumberFormat前少了個句點 03/28 05:59
哦對耶...感謝~，不過這是我貼錯。 我剛才似乎找到問題點了，好像改成如
以下這樣就可以正常跑了。
Set WS = Sheets(ActiveSheet.Name)
ChartCount = WS.ChartObjects.Count
For A = 1 To ChartCount
WS.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel_
.NumberFormatLocal = "0.0000E+00"
Next A
For A = 1 To ChartCount
WS.ChartObjects(1).Activate
B = ActiveChart.SeriesCollection(1).Trendlines(1)_
.DataLabel.Caption
Next A
WS.Cells(A, 1) = B
End Sub
改變單位符號跟讀值的code似乎不能在同一個迴圈，不然雖然Chart上
Trendline單位會改變，但是讀到的單位不會，不過我不是很清楚為什
麼必須要這樣改就是了。
之前會沒有發現是因為我原始的code會先刪除所有的Trendline再重新劃
，今天把它單獨拉出來看才發現連續跑兩次就可以把正確的單位讀出來
※ 編輯: chasta (203.187.49.25), 03/28/2017 07:13:50