Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.07.2018 23:50:04 |
dan |
|
|
|
04.07.2018 04:34:27 |
Gast51082 |
|
|
|
04.07.2018 04:50:03 |
Gast14141 |
|
|
|
04.07.2018 21:30:27 |
Gast38132 |
|
|
Zwei Diagramme mit einem Toggelbutton |
05.07.2018 00:12:48 |
Gast86848 |
|
|
|
05.07.2018 08:20:51 |
dan |
|
|
Von:
Gast86848 |
Datum:
05.07.2018 00:12:48 |
Views:
502 |
Rating:
|
Antwort:
|
Thema:
Zwei Diagramme mit einem Toggelbutton |
Hallo,
wort-, gruß- und dankeslos, wenn Du weiterhin Hilfe haben willst muß sich das ändern...!!!...Paß das hier an....
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(ChartObjects.Count).Delete
.Caption = "Sorption Kinetics (dry mass)"
.ForeColor = vbBlack
Else
Call ChartObjects(ChartObjects.Count).Delete
.Caption = "Sorption Kinetics"
.ForeColor = vbBlack
End If
End With
End Sub |
Und wie schon geschr., Ein- und Ausblenden wäre wohl besser, aber ok...
Gruß,
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(ChartObjects.Count).Delete
.Caption = "Sorption Kinetics (dry mass)"
.ForeColor = vbBlack
Else
Call ChartObjects(ChartObjects.Count).Delete
.Caption = "Sorption Kinetics"
.ForeColor = vbBlack
End If
End With
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
03.07.2018 23:50:04 |
dan |
|
|
|
04.07.2018 04:34:27 |
Gast51082 |
|
|
|
04.07.2018 04:50:03 |
Gast14141 |
|
|
|
04.07.2018 21:30:27 |
Gast38132 |
|
|
Zwei Diagramme mit einem Toggelbutton |
05.07.2018 00:12:48 |
Gast86848 |
|
|
|
05.07.2018 08:20:51 |
dan |
|
|