So ändern Sie den Namen der Reihe in VBA

Ich habe eine Reihe von Diagrammen, die ich am erstellen mit VBA (code unten).

Ich habe Probleme beim ändern der Namen der Serie von Serie 1 und Serie 2 der Aktuelle Stand und die Lösung Stand.

Ich immer eine

Objekt Variable oder With-Block Variable nicht festgelegt

Fehler.

Jedoch ohne die srs1 und srs2 code die charts gehen in Ordnung (nur mit der falschen Reihe-Namen).

Ich sah, wie dieses Problem zu beheben und die Antwort, die ich erhielt jedoch ist nicht für mich arbeiten.

Kennt jemand einen anderen Weg, dies zu tun? 

Sub MA()
    Dim Srs1 As Series
    Dim Srs2 As Series
    Dim i  As Integer
    Dim MAChart As Chart
    Dim f As Integer
    f = 2 * Cells(2, 14)
     For i = 1 To f Step 2
        Set MAChart = ActiveSheet.Shapes.AddChart(Left:=750, Width:=400, Top:=130 + 50 * (i - 1), Height:=100).Chart
         With MAChart
         .PlotBy = xlRows
         .ChartType = xlColumnClustered
         .SetSourceData Source:=ActiveSheet.Range("Q" & 1 + i & ":Z" & 2 + i)
         .Axes(xlValue).MaximumScale = 4
         .Axes(xlValue).MinimumScale = 0
         .HasTitle = True
         .ChartTitle.Text = "Provider Load for " & Cells(i + 1, 15)
         'where errors start- works fine up to this point
         Set Srs1 = ActiveChart.SeriesCollection(1) 
         Srs1.Name = "Current State"
         Set Srs2 = ActiveChart.SeriesCollection(2) 
         Srs2.Name = "Proposed Solution"
         End With
    Next i
End Sub
Es gibt keine aktive Diagramm. Verwenden Set Srs1 = .SeriesCollection(1) etc.

InformationsquelleAutor Cam | 2015-07-21

  1. 8

    Versuchen Sie, diese Zeilen ...

         Set Srs1 = ActiveChart.SeriesCollection(1) 
     Srs1.Name = "Current State"
     Set Srs2 = ActiveChart.SeriesCollection(2) 
     Srs2.Name = "Proposed Solution"

    ... 

         .SeriesCollection(1).Name = "Current State"
     .SeriesCollection(2).Name = "Proposed Solution"

    Sind Sie bereits mit MAChart in Ihrem Mit block, so dass Sie sollten in der Lage sein Zugriff ist es .SeriesCollection(x).Name Eigenschaften in der gleichen Weise, wie Sie getan haben für die anderen Eigenschaften.

    InformationsquelleAutor 3-14159265358979323846264

  2. 2

    Ich glaube das problem ist mit Referenzierung im code verweisen Sie ActiveChart (ich vermute, es existiert nicht), während Sie erstellt haben, MAChart im code oben.

     Set Srs1 = MAChart.SeriesCollection(1) 
 Srs1.Name = "Current State"
 Set Srs2 = MAChart.SeriesCollection(2) 
 Srs2.Name = "Proposed Solution"
    Oder einfach nur Set Srs1 = .SeriesCollection(1) etc.

    InformationsquelleAutor Juliusz

Schreibe einen Kommentar