VBA Diagramme Position
WolfgangN
ich habe ca. 25 Diagramme, die alle gleich groß sind. Ich möchte jetzt alle Diagramme exakt ausrichten.
Es sollen jeweils 3 nebeneinander und dann darunter wieder 3 Diagramme usw. dargestellt werden.
Von Tino habe ich ein Makro gefunden, welches alle untereinander anzeigt. Ich habe es zwar geschafft alle nebeneinander anzuordnen, aber nicht jeweils 3 nebeneinander und dann wieder 3.
Das Ausrichten per Hand mit "Alt" an einzelnen Zellen ist schlecht möglich, da die Zellen unterschiedliche Größe haben.
Vielen Dank für die Hilfe.
Grüße von Wolfgang
Hier das Makro, welches alle Diagramme nebeneinander darstellt:
Option Explicit
Sub Verschieben()
Dim objShape As ChartObject, MerkShape As ChartObject
For Each objShape In Sheets("Tabelle1").ChartObjects
With objShape
If MerkShape Is Nothing Then
.Left = 10: .Top = 750 'pos. für erstes Elemente
Else
'pos. für nachfolgende Elemente, abhängig vom vorhergehenden
.Top = MerkShape.Top
.Left = MerkShape.Left + MerkShape.Height + 140
End If
Set MerkShape = objShape
End With
Next objShape
End Sub