Question

这可能是一件非常简单的事情，但我已经挣扎了一段时间，似乎无法让它发挥作用。

我有一个将系列添加到XY图表的宏。我希望将数据标注添加到绘制的每个点，并且这些标注中的文本来自我从中获取Y值的列的下一列。运行宏绘制图表如何使用它，但由于某种原因，标注中的文本始终是Y值，而不是我指定的列中的文本。

HEre是宏的相关部分。我使用宏录制器编写了这部分，但它似乎不起作用。关于如何为标注设置文本的一般指导将不胜感激。

Dim tblevents As ListObject
Dim eventseries As Series

Set tblevents = ThisWorkbook.Sheets("Events").ListObjects(1)
Set eventseries = mainchart.SeriesCollection.NewSeries

With eventseries
    .XValues = tblevents.ListColumns(1).DataBodyRange
    .Values = tblevents.ListColumns(4).DataBodyRange
    .Name = "Events"
    .Format.Line.Visible = msoFalse
    .ApplyDataLabels
    .HasErrorBars = True
    .ErrorBar Direction:=xlY, Include:=xlErrorBarIncludeMinusValues, Type:=xlErrorBarTypePercent, Amount:=100

End With

mainchart.Activate

ActiveChart.FullSeriesCollection(2).datalabels.Select
    ActiveChart.SeriesCollection(2).datalabels.Format.TextFrame2.TextRange. _
        InsertChartField msoChartFieldRange, "=Events!$B:$B", 0

End Sub

从表列到XY点的所有数据标注

0 个答案: