Verschiedene Diagramm arten verschieben
03.01.2017 16:04:58
Max2
ich möchte auf das Blatt "Statistik", 4 Balkendiagramme und 4 Kuchen Diagramme einfügen.
Dass ist erstmal kein Problem.
Nun möchte ich aber dass meine Säulendiagramme Links sind und meine Kuchendiagramme rechts.
Momentan spreche ich die Diagramme nur mit .Shapes(x) an, ich sehe da schon Probleme auf mich zukommen.
Hier Code:
Sub Diagramme_Erstellen()
Set Diagramm = ThisWorkbook.Sheets("Statistik")
With Diagramm
Application.ScreenUpdating = False
i = 1
Do Until i > 4
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, _
Name:="Statistik"
ActiveChart.ChartType = xlColumnClustered
i = i + 1
Loop
End With
Application.ScreenUpdating = True
End Sub
Sub Verschieben()
Set Diagramm = ThisWorkbook.Sheets("Statistik")
With Diagramm
.Range("A2").Select
x = -320
i = 1
Do Until i > 4
.Shapes(i).IncrementLeft -750
.Shapes(i).IncrementTop x
x = x + 280
i = i + 1
Loop
End With
End Sub
Wie spreche ich am besten verschiedene arten von Diagrammen in VBA an?
Kann ich in einem If-Satz abfragen ob es ein xlColumnClustered etc. ist oder gibt da bessere / andere Möglichkeiten?