wie erstelle ich Diagramme mit VBA, die genauso ausshen, als wären sie mit dem Assistenten erstellt?
Ich erstelle ein Zylinder-Diagramm mit dem Assisten und es nimmt schön die ganze Diagrammfläche ein (gewünscht). Die Aktion zeichne ich mit dem Macro-Recorder auf und wiederhole sie mit VBA. Dann ist das Diagramm allerdings mehr gedreht und viel kleiner, als das Original. Wie kann ich mein Code programmieren, damit das Diagramm so aussieht wie gewünscht (großflächig)?
Den Code des Macro-Recorders lautet wie folgt:
Sub Makro1()
ActiveWorkbook.Charts.Add
ActiveChart.ChartType = xlCylinderColClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("F7")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!R1C1:R6C1"
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R1C2:R6C2"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Characters.Text = "Points"
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
ActiveChart.HasDataTable = False
End Sub
MfG
Marc