1

4 つの系列を持つグラフにラベルを追加しようとしています。シリーズはレーベル、X、Y、サイズです。

以下の VBA スクリプトは、1 つのシリーズに適しています。しかし、4 つのデータ系列をプロットしようとしています (色を変えたいため)、エラーが発生します。何が問題ですか？

Sub AttachLabelsToPoints()

   'Dimension variables.
   Dim Counter As Integer, ChartName As String, xVals As String
    Dim rngCell As Range

   ' Disable screen updating while the subroutine is run.
   Application.ScreenUpdating = False

   'Store the formula for the first series in "xVals".
   xVals = ActiveChart.SeriesCollection(1).Formula

   'Extract the range for the data from xVals.
   xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
      Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
   xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
   Do While Left(xVals, 1) = ","
      xVals = Mid(xVals, 2)
   Loop

   'Attach a label to each data point in the chart.
   Counter = 1
    For Each rngCell In Range(xVals).SpecialCells(xlCellTypeVisible)
        With ActiveChart.SeriesCollection(1).Points(Counter)
            .HasDataLabel = True
            .DataLabel.Text = rngCell.Offset(0, -1).Value
            Counter = Counter + 1
        End With
    Next

End Sub
4

0 に答える 0