读取标签 VBA - Excel

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

注意 - 将 "Chart 1" 更改为您的图表名称。

当我将 NumberFormat 从“0.000000”更改为“0.0000”时，这对我有用。

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

Reading a label VBA - Excel

excel

vba