Am besten beim klicken auf das im vordergrung stehende diagramm.
Hallo,
Option Explicit
Dim dia1 As Shape, dia2 As Shape
Sub Diagramm2_BeiKlick()
Set dia1 = ActiveSheet.Shapes("Diagramm 1")
dia1.ZOrder (0)
End Sub
Sub Diagramm1_BeiKlick()
Set dia2 = ActiveSheet.Shapes("Diagramm 2")
dia2.ZOrder (0)
End Sub
Gruß K.Rola
Sub diag1()
ActiveSheet.ChartObjects("Diagramm 1").Activate
Sheets("Tabelle1").ChartObjects("Diagramm 1").SendToBack
ActiveWindow.Visible = False
End Sub
Sub diag2()
ActiveSheet.ChartObjects("Diagramm 2").Activate
Sheets("Tabelle1").ChartObjects("Diagramm 2").SendToBack
ActiveWindow.Visible = False
End
Sub