Hallo community,
ich arbeite momentan an einem fertigen Code und will dort beim Erstellen von Diagrammen eine zweite Y-Achse anzeigen. Leider habe ich mit VBA noch nie Diagramme erstellt. Vielleicht könnt ihr mir den Fehler am Code sagen:
With mychart
.AutoScaling = True '= Autoskalierung des Diagramms
.HasLegend = True '= Hat eine Legende
.HasDataTable = False '= Hat eine Datenlegende
.HasTitle = True '= Hat einen Titel
.ChartTitle.text = B.Get_text("Titel", zeile) '= Titel des Diagramms
'= X-Achsetitel an und aus
.Axes(xlCategory, xlPrimary).HasTitle = True
'= X-Achsentitel bei Linien / Bar-Graph
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.text = B.Get_text("Titel_X_Achse", zeile)
'= y1-Achsentitel an und aus
.Axes(xlValue, xlPrimary).HasTitle = True
'= y1-Achsentitel bei Linien / Balken
.Axes(xlValue, xlPrimary).AxisTitle.Characters.text = B.Get_text("Titel_Y1_Achse", zeile)
'------------------------------------------------------------------------------------------------------
'= y2-Achsentitel an und aus 'HIER KOMMT DER FEHLER
.Axes(xlValue, xlSecondary).HasTitle = True
'= y2-Achsentitel bei Linien / Balken
.Axes(xlValue, xlSecondary).AxisTitle.Characters.text = B.Get_text("Titel_Y2_Achse", zeile)
'------------------------------------------------------------------------------------------------------
'= Datenbereich zuweisen
.SetSourceData Source:=q
End With
Der Fehlercode ist: Laufzeitfehler 2147467259(80004005) - Die Methode 'Axes' für das Oberjekt '_chart' ist fehlgeschlagen.
Ohne den Kommentierten Bereich ist das Progamm lauffähig aber natürlich nur mit einer y-Achse
|