Office: Skalierung X-Achse per VBA

Hallo,

ich versuche bei einem Säulendiagramm die Skalierung der X-Achse hinzubekommen.
Derzeit stehen keine Werte unter der Achse und der Code sieht so aus:

PHP:

         ActiveSheet.ChartObjects("Diagramm 2").Activate

ActiveChart.ChartType = xlColumnStacked

ActiveChart.SetSourceData Source:=Workbooks("Makro.xlsm").Sheets("Tabelle1").Range("A1:CB1"), PlotBy _
:=xlRows

ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart

.HasLegend = False
.HasTitle = False
.HasAxis(xlCategory, xlPrimary) = True

.Axes(xlValue, xlPrimary).MinimumScale = 0
.Axes(xlValue, xlPrimary).MaximumScale = 5500
.Axes(xlValue, xlPrimary).MajorUnit = 500

Hier kommt die Fehlermeldung
.Axes(xlCategory, xlPrimary).MinimumScale = 0
.Axes(xlCategory, xlPrimary).MaximumScale = 80
.Axes(xlCategory, xlPrimary).MajorUnit = 10


:)

 

Hallo Egon,

ein Säulendiagramm entlang der horizontalen Achse zu skalieren macht keinen Sinn! Bei Säulendiagrammen werden nur entlang der vertikalen Achse Werte aufgetragen - hier kannst du skalieren. Entlang der horizontalen Achse stehen eventuell mehrere Säulen nebeneinander. Was willst du da skalieren?

Gruß Ingolf

 

Hi,

die Höhe jeder Säule stellt einen Wert aus einem Automaten dar. Da es insgesamt 80 Säulen nebeneinander sind,
wäre es nicht schlecht wenn die Nummeriert sind damit man einen Überblick hat.

Gruß,
Egon

 

Hallo Egon,

versuch's mal damit:

Code:

Gruß Ingolf

 

Hallo Ingolf,

das ändert leider garnichts. Aber ich hatte grad eine Idee:
in dem Diagramm befinden sich noch Flächendiagramme. Bei denen
müsste man doch eine X-Achse hinzufügen können, oder?

Code sieht so aus:

PHP:

         Obiger Code

With ActiveChart
.SeriesCollection(2).XValues = Workbooks("Makro.xlsm").Worksheets("Tabelle1").Range("B45:CC45")
.SeriesCollection(2).Values = Workbooks("makro.xlsm").Worksheets("Tabelle1").Range("B60:CC60")
.SeriesCollection(2).ChartType = xlAreaStacked


 

Hallo,

ich hab das jetzt folgendermaßen gelöst:

PHP:

         ActiveChart.Axes(xlCategory).TickMarkSpacing = 5