动态图表系列标签

Question

我有一些Visual Basic代码为每一行创建一个图表。

.SeriesCollection（1）.Values = “=” & Ws.Name & & CurrRow & “C3：R” “R”！：& CurrRow & “C8”

它使用这个代码设置一系列值

我在苦苦挣扎的是如何设置系列标签？系列标签将始终是第一行，并位于相应的列中。我知道这比上面的代码简单得多，但我很难过。

任何帮助表示赞赏。

Answer 1

在.SeriesCollection（1）.ApplyDataLabels方法中使用Ws.Range（“C1：H1”）。值。

Answer 2

我从你的Y值命令猜测，你想这样：

.SeriesCollection(1).Name = "=" & Ws.Name & "!R" & CurrRow & "C2" 

这是同一行的Y值，列前的Y值开始。

Answer 3

我的第一个答案将问题解释为询问系列名称。如果您想为数据标签使用范围，那有点棘手。

如果您有Excel 2013，您可以直接指定一个范围：

With .SeriesCollection(1) 
    .ApplyDataLabels 
    With .DataLabels 
    .Format.TextFrame2.TextRange.InsertChartField _ 
     msoChartFieldRange, "='" & Ws.Name & "'!R1C3:R1C8", 0 
    .ShowRange = True 
    .ShowValue = False 
    End With 
End With 

如果您有Excel的早期版本，你要踩通过标签。

这就赋予细胞对标签的静态文本：

Dim iPt As Long 
Dim rLabels As Range 

Set rLabels = Ws.Range(Ws.Cells(1, 3), Ws.Cells(1, 8)) 

With .SeriesCollection(1) 
    .ApplyDataLabels 
    For iPt = 1 To .Points.Count 
    .Points(iPt).DataLabel.Text = rLabels.Cells(iPt).Text 
    Next 
End With 

该链接的每个标签贴到相应的单元格，所以标签反映在细胞中的任何改变：

Dim iPt As Long 
Dim rLabels As Range 

Set rLabels = Ws.Range(Ws.Cells(1, 3), Ws.Cells(1, 8)) 

With .SeriesCollection(1) 
    .ApplyDataLabels 
    For iPt = 1 To .Points.Count 
    .Points(iPt).DataLabel.Text = "=" & rLabels.Cells(iPt).Address(, , , True) 
    Next 
End With