Daigramm sichtbar machen
12.03.2018 15:01:00
Berni
Es ist zwar nur ein kleiner Schönheitsfehler, aber vielleicht lässt er sich doch irgendwie beheben.
Also: Ich habe mit eine Zahlentabelle zurecht gerichtet, in welchem die Zahlen von 2013 bis 2017 stehen. Da sie im Gesamten zu unübersichtlich sind, habe ich die einzelnen Zeilen mit einem Kontrollkästchen versehen, damit ich die ganze Zeile ausblenden kann.
Nun habe ich ein Diagramm darüber gelegt und über einen Togglebutton "Diagramm statt Zahlen" bzw. "Zahlen statt Diagramm" Switchen lassen.
Der Code dazu funktioniert bestens.
Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
TB.Caption = "Zahlen statt Diagramm"
ActiveSheet.Shapes("Diagramm 2").Visible = True
Else
TB.Caption = "Diagramm statt Zahlen"
ActiveSheet.Shapes("Diagramm 2").Visible = False
End If
End Sub
Welchen Befehl muss ich einbauen, dass das Diagramm dauernd sichtbar ist, solange ich es über den Button aktiviert habe.
Vielleicht hat jemand von euch eine Idee
herzlichen Dank im voraus
Berni
Anzeige