Wenn Pivot Slicer benutzt, dann VBA
21.03.2017 16:35:22
Peter
Ich suche ein Script, bei dem das unten stehende Script ausgeführt wird, wenn der Slicer benutzt wurde. Das Problem ist, wenn der Slicer, Filter benutzt wurde, wird die Legende des Diagramms ebenfalls geändert (entsprechend dem Slicer, Filter), jedoch wenn die Slicer zurück gesetzt werden, wird die Legende nicht wieder angepasst. Mit dem unten stehenden Script, wird die Legende auf die richtige Grösse angepasst. Jetzt brauche ich noch den Scriptauslöser und das sollte eine Slicer-Aenderung sein. Die Funktion "Private Sub Worksheet_Change(ByVal Target As Excel.Range)" funktioniert leider nicht (es wurde ja keine Daten verändert).
Hat jemand eine Idee?
Script setzt die Legende wieder auf die richtige Grösse:
ActiveSheet.ChartObjects("Diagramm 11").Activate
ActiveChart.Legend.Select
Selection.Width = 1285.252
Selection.Height = 120.02
Range("G1").Select
Danke
Viele Grüsse,
Peter