作者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/cn.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