Sortieren/Anordnen von Diagrammen

Sub Diagramme_Groesse_Position()
Dim iChart As Long
Dim nCharts As Long
Dim dTop As Double
Dim dLeft As Double
Dim dHeight As Double
Dim dWidth As Double
Dim nColumns As Long
dTop = 180    ' top of first row of charts
dLeft = 0      ' left of first column of charts
dHeight = 300  ' height of all charts
dWidth = 500   ' width of all charts
nColumns = 2   ' number of columns of charts
nCharts = ActiveSheet.ChartObjects.Count
For iChart = 1 To nCharts
With ActiveSheet.ChartObjects(iChart)
.Height = dHeight
.Width = dWidth
.Top = dTop + Int((iChart - 1) / nColumns) * (dHeight + 10)
.Left = dLeft + ((iChart - 1) Mod nColumns) * (dWidth + 10)
End With
Next
End Sub