Schleife für Diagramme
28.06.2018 10:36:00
Ali
ich habe mir ein Makro geschrieben, bei dem ich bestimmte Werte in einer Tabelle auslesen lasse, dann alle anderen Werte, die dazugehören kopiere und in einer neuen Tabelle zusammenfasse. Zwei Wertepaare aus den jeweiligen Blöcken lasse ich mir jeweils als Diagramme anzeigen, sodass ich am Ende Beispielweise 5-10 Punktliniendiagramme neben meiner Tabelle habe. Ich würde jedoch gerne das Layout automatisch mitändern. Kann ich dazu beim Erstellen des Diagramms die Einstellung ändern? Alternativ würde ich versuchen eine "Schleife" zu schreiben, bei der ich die Änderung dann im Nachhinein vornehmen lasse. Habe diese geflickte Lösung mit Schleifen jedoch schon für eine ganze Menge meiner Probleme in diesem Makro genutzt. Vielleicht geht es auch etwas eleganter?
Hier die entsprechende Stelle im Makro, bei der die Diagramme erstellt werden. (Dieses hatte ich mit der Hilfe von jemandem anders so zusammengeschrieben).
'Visualisierung der Daten
'Visual ist ein Range
For Each Visual In Range("AL:AM").SpecialCells(2).Areas
With ActiveSheet.Shapes.AddChart.Chart
.ChartType = xlXYScatterSmooth
.SetSourceData Source:=Visual, PlotBy:=xlColumns
With .Parent
.Top = Visual.Cells(1).Top
.Left = Visual.Cells(1).Offset(0, 3).Left
.Height = Visual.Height
.Width = Range("AN4:AQ4").Width
End With
End With
Next Visual