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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen