Question

我遇到VBA编程问题。我想阅读代表曲线插值的标签文本。我用了这段代码：

ActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.Select

Selection.NumberFormat = "0.000000"

' estrae dall'etichetta di una interpolazione i coefficienti e li ricopia in celle scelte dall'utente
Dim s, x3, x2, x, c, R As Double
Dim i1, i2, i3, f1, f2, f3, ic, fc

s = ActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.Text
f4 = InStr(s, "x4")
x4 = Val(Replace(Mid(s, i4, f4 - i4), ",", "."))
Worksheets("Interpola").Range("B" & 6) = s

代码有效，但即使我将数字格式更改为“0.0000”，它也会在B6中写入相同的标签。感谢您的关注，安德烈

Answer 1

试试这个：

Dim ws As Worksheet
Dim ch As ChartObject
Dim s As String

Set ws = Worksheets("Interpola")
Set ch = ws.ChartObjects("Chart 1")
ch.Select
ActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.NumberFormat = "0.0000"
s = ActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.Text
ws.Range("B6").Value = s

注意 - 更改＆＃34;图表1＆＃34;到你的图表名称。

当我从＆＃34; 0.000000＆＃34;更改NumberFormat时，这对我有用。到＆＃34; 0.0000＆＃34;。

Answer 2

非常感谢，它运作正常。我认为问题在于：

ActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.NumberFormat = "0.0000"

与

不同

thisActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.Select
Selection.NumberFormat="0.0000"

我不知道为什么，但现在一切顺利。谢谢！

阅读标签VBA - Excel

2 个答案: