Zeichnungsfläche von Diagrammen anpassen

Hallo zusammen,
ich möchte die Größe der Diagramm Zeichnungsfläche mit einem Makro verändern, wenn bestimmte Spalten gruppiert werden bzw. die Gruppierung rückgängig gemacht wird. Dazu hatte ich schon mal eine Frage gestellt, allerdings ist diese mittlerweile im Archiv, sodass ich darauf nicht mehr antworten kann: https://www.herber.de/forum/archiv/1772to1776/1775649_Aenderung_der_Zeichnungsflaeche_in_Diagrammen.html
Der Code von Franz funktioniert beim Ausblenden super. Vielen Dank an dieser Stelle dafür! Allerdings wird die Breite beim Einblenden nicht richtig gesetzt. Die Zeichnungsfläche ist zwar größer als bei ausgeblendeter Z Spalte, aber viel kleiner als im Code angegeben. Habe etwas mit den left und width Werten rumgespielt, an der Größe hat sich jedoch nichts verändert. Hat von euch jemand eine Idee, warum der Code im Else Block nicht funktioniert? Eigentlich steht da ja das Gleiche wie im oberen Teil.
Viele Grüße Juliane

Hi Juliane,
dann bleibt nur, die Daten in der richtigen Reihenfolge entsprechend in einen anderen Zellbereich zu kopieren (ab Zeile 55, diese Zeilen kannst du ja ausblenden) und das Diagramm darauf aufzubauen - zumindest fällt mir im Augenblick nichts besseres ein.
Hir der Code dazu:

Private Sub Worksheet_Calculate()
Dim strFormel As String
Dim intLetzte As Integer
Dim bolHidden As Boolean
Application.ScreenUpdating = False
intLetzte = IIf(IsEmpty(Cells(40, Columns.Count)), Cells(40, Columns.Count).End(xlToLeft). _
Column, Columns.Count)
bolHidden = Columns(26).EntireColumn.Hidden
Application.EnableEvents = False 'Ereignismakros vorübergehend deaktivieren
If bolHidden = True Then
If bolHidden_Z  bolHidden Then
With ActiveSheet.ChartObjects("Diagramm 1").Chart
.Shapes(1).Visible = True
Range(Cells(40, intLetzte - 3), Cells(47, intLetzte)).Copy Cells(55, 22)
Range(Cells(40, 22), Cells(47, intLetzte - 4)).Copy
Cells(55, 26).PasteSpecial Paste:=xlValues
.SeriesCollection(1).XValues = Range(Cells(55, 22), Cells(40, intLetzte))
End With
bolHidden_Z = bolHidden
DoEvents
End If
Else
If bolHidden_Z  bolHidden Then
With ActiveSheet.ChartObjects("Diagramm 1").Chart
.Shapes(1).Visible = False
Range(Cells(40, 22), Cells(47, intLetzte)).Copy
Cells(55, 22).PasteSpecial Paste:=xlValues
.SeriesCollection(1).XValues = Range(Cells(55, 22), Cells(55, intLetzte))
End With
bolHidden_Z = bolHidden
DoEvents
End If
End If
Application.CutCopyMode = False
Application.EnableEvents = True 'Ereignismakros wieder aktivieren
Application.ScreenUpdating = True
End Sub

Zeichnungsfläche von Diagrammen anpassen

Forumthread: Zeichnungsfläche von Diagrammen anpassen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial