Private Sub ToggleButton1_Click()
With ToggleButton1
If .Value And ChartObjects.Count = 0 And .Caption <> "Sorption Kinetics (dry mass)" Then
Call Sorption_Kinetics
.Caption = "Delete Sorption Kinetics"
.ForeColor = vbRed
ElseIf .Value And ChartObjects.Count = 0 And .Caption = "Sorption Kinetics (dry mass)" Then
Call Sorption_Kinetics_dry_mass
.Caption = "Delete Sorption Kinetics (dry mass)"
.ForeColor = vbRed
ElseIf .Caption = "Delete Sorption Kinetics" Then
Call ChartObjects.Delete
.Caption = "Sorption Kinetics (dry mass)"
.ForeColor = vbBlack
Else
Call ChartObjects.Delete
.Caption = "Sorption Kinetics"
.ForeColor = vbBlack
End If
End With
End Sub
----------------------------------------------------------
Es funktioniert aber ich habe noch andere Diagramme wenn ich auf dem Togglebutton drücke,werden alle Diagramme ausblenden.
|