ich würde gern die Zeichnungsfläche eines Diagramms per Makro automatisch anpassen lassen, wenn bestimmte Spalten in dem Tabellenblatt mit dem Diagramm gruppiert werden bzw. die Gruppierung rückgängig gemacht werden.
Meine Idee war, es über ein Worksheet Change Ereignis zu lösen:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Columns(26).EntireColumn.Hidden = True Then
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.PlotArea.Select
Selection.Width = 244.438
Selection.Left = 136.889
Else
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.PlotArea.Select
Selection.Left = 142.191
Selection.Width = 778.54
End If
End Sub
Leider verändert sich die Zeichnungsfläche nicht wie gewünscht. Kann mir hier jemand weiterhelfen? Kann ich das mit Hilfe von VBA überhaupt machen?
Vielen Dank vorab für eure Untersützung.
Viele Grüße Juliane