如何使用VBA Excel在圖表中添加2個標簽

Question

我已經使用vba excel創建了一個圖表，然后不小心填充了一個顯示用戶和我喜歡的計數的圖表。 但是由於測試，我愚蠢的我忘了保存。 現在，我無法了解如何重新設置它的邏輯。 請幫助，謝謝

樣本數據

Operator  Counts    Team
OPSHAF     123      A
OPSAJC     1245     B
OPSZAL     23       A
OPSJGY     162      C
OPSOSM     54       D

Sub CreateChart()

Dim rEmailRng As Range
Dim oEmailCht As Object
Dim cEmailCht As Chart

Dim coEmailCht As ChartObject
Dim iEmailRow As Integer
Dim sEmailSeries As Series
Dim scEmailSerCol As SeriesCollection

On Error Resume Next

    Set wb = ThisWorkbook
    Set wbsh2 = wb.Worksheets("Email")

    Set coEmailCht = wbsh2.ChartObjects.Add(Range("E5").Left, Range("E5").Top, 500, 300)
    coEmailCht = "Email Requests Processed" '& year

    Set cEmailCht = coEmailCht.Chart

    With cEmailCht
        .HasLegend = False
        .HasTitle = True
        .Axes(xlValue).MinimumScale = 50
        .Axes(xlValue).MaximumScale = 1500
        .ChartTitle.Text = "Email Processed by Operator"

        Set scEmailSerCol = .SeriesCollection
        Set sEmailSeries = scEmailSerCol.NewSeries

        With sEmailSeries
            .Name = Range("A1").Offset(0, 1).Value
            .XValues = Range(Range("A1").Offset(1, 0), Range("A1").End(xlDown))
            .Values = Range(Range("A1").Offset(1, 1), Range("A1").Offset(1, 1).End(xlDown))
            .ChartType = xl3DColumnClustered
        End With

    End With

Answer 1

歡迎來到SO。 如果您的目標是軸標簽包含Count和Operator，則只需嘗試

With sEmailSeries
        '
      .XValues = Range("A2:B" & Range("B2").End(xlDown).Row)

如果你也想要隊名

.XValues = Range("A2:C" & Range("C2").End(xlDown).Row)