使用 VBA 将数据点格式化为图表中数据的最后一个点的问题

Question

I have this code which applies data labels to the final point of data in a chart. I've added additional code (added separately below it) which adds additional formatting to the final point. This additional formatting doesn't seem to be getting applied and I get no errors.

Sub LastPointLabel2()
  Dim srs As Series
  Dim iPts As Long
  Dim cht As ChartObject
  Dim vYVals As Variant
  Dim vXVals As Variant
  Set ws = ActiveSheet

  If ActiveChart Is Nothing Then
    MsgBox "Select a chart and try again.", vbExclamation
  Else
    Application.ScreenUpdating = False
  For Each cht In ws.ChartObjects
      Set srs = cht.Chart.SeriesCollection(1)
      With srs
        vYVals = .Values
        'vXVals = .XValues
        ' clear existing labels
        .HasDataLabels = False
        For iPts = .Points.Count To 1 Step -1
          If Not IsEmpty(vYVals(iPts)) Then
            ' add label
            srs.Points(iPts).ApplyDataLabels _
                ShowSeriesName:=False, _
                ShowCategoryName:=False, ShowValue:=True, _
                AutoText:=True, LegendKey:=False
            Exit For
          End If
                        'Reposition label
              If srs.Points(iPts).HasDataLabel Then
                        With srs.Points(iPts).DataLabel
                        .HorizontalAlignment = xlCenter
                        .VerticalAlignment = xlTop
                        .ReadingOrder = xlLTR
                        .Position = xlLabelPositionAbove
                        .Orientation = xlHorizontal
                        End With
                    End If
                'Adjust label size and colour
                If srs.Points(iPts).HasDataLabel Then
                With srs.Points(iPts)
                    .MarkerSize = 7
                    .MarkerStyle = xlCircle
                    .MarkerBackgroundColorIndex = 6
                    .MarkerForegroundColorIndex = 1
                End With
                    End If
        Next
      End With
    Next
    ' legend is now unnecessary
    Application.ScreenUpdating = True
  End If
End Sub

This part doesn't seem to be getting applied

                        'Reposition label
              If srs.Points(iPts).HasDataLabel Then
                        With srs.Points(iPts).DataLabel
                        .HorizontalAlignment = xlCenter
                        .VerticalAlignment = xlTop
                        .ReadingOrder = xlLTR
                        .Position = xlLabelPositionAbove
                        .Orientation = xlHorizontal
                        End With
                    End If
                'Adjust label size and colour
                If srs.Points(iPts).HasDataLabel Then
                With srs.Points(iPts)
                    .MarkerSize = 7
                    .MarkerStyle = xlCircle
                    .MarkerBackgroundColorIndex = 6
                    .MarkerForegroundColorIndex = 1
                End With
                    End If

If I remove Exit For then the above formatting is applied to all data points

Answer 1

Sub LastPointLabel2()
  Dim srs As Series
  Dim iPts As Long
  Dim cht As ChartObject
  Dim vYVals As Variant
  Dim vXVals As Variant
  Set ws = ActiveSheet

  If ActiveChart Is Nothing Then
    MsgBox "Select a chart and try again.", vbExclamation
  Else
    Application.ScreenUpdating = False
  For Each cht In ws.ChartObjects
      Set srs = cht.Chart.SeriesCollection(1)
      With srs
        vYVals = .Values
        'vXVals = .XValues
        ' clear existing labels
        .HasDataLabels = False
        For iPts = .Points.Count To 1 Step -1
          If Not IsEmpty(vYVals(iPts)) Then
            ' add label
            srs.Points(iPts).ApplyDataLabels _
                ShowSeriesName:=False, _
                ShowCategoryName:=False, ShowValue:=True, _
                AutoText:=True, LegendKey:=False
            'Reposition label
            If srs.Points(iPts).HasDataLabel Then
                With srs.Points(iPts).DataLabel
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlTop
                    .ReadingOrder = xlLTR
                    .Position = xlLabelPositionAbove
                    .Orientation = xlHorizontal
                End With
            End If
            'Adjust label size and colour
            If srs.Points(iPts).HasDataLabel Then
                With srs.Points(iPts)
                    .MarkerSize = 7
                    .MarkerStyle = xlCircle
                    .MarkerBackgroundColorIndex = 6
                    .MarkerForegroundColorIndex = 1
                End With
            End If
            Exit For
          End If
        Next
      End With
    Next
    ' legend is now unnecessary
    Application.ScreenUpdating = True
  End If
End Sub