[VBA ] 讀取Chart中Trendline Formula

看板Visual_Basic作者chasta (chase)時間7年前 (2017/03/27 21:32)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串1/1

之前在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://www.ptt.cc/bbs/Visual_Basic/M.1490621555.A.595.html

推

hulapig

03/28 05:59, , 1^F

03/28 05:59, 1^F

哦對耶...感謝~，不過這是我貼錯。我剛才似乎找到問題點了，好像改成如以下這樣就可以正常跑了。 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