Thema Datum  Von Nutzer Rating
Antwort
06.08.2018 00:21:36 Max
Solved
Blau ein ToggleButton mit Diagramme
 06.08.2018 00:52:12 Gast36088
NotSolved
06.08.2018 03:35:01 Max
NotSolved
06.08.2018 22:15:25 Gast36088
NotSolved

Ansicht des Beitrags:
Von:
Gast36088		 Datum:
06.08.2018 00:52:12		 Views:
489		 Rating:
     
Antwort:
  Ja
Thema:
ein ToggleButton mit Diagramme

Hallo,

null Problemo, füg einen Button aus den Formularsteuerelementen ein und weise ihm das Makro    Button_Click  zu, und folgender Code in ein Standardmodul:

Option Explicit

Public Sub Button_Click()
 With ActiveSheet.Buttons(Application.Caller)
     Select Case .Caption
         Case Is = "Diagramm3"
            .Caption = "Diagramm1"
            .Font.Color = vbRed
            Call prcChartsVisibility(True, False, False)
         Case Is = "Diagramm2"
            .Caption = "Diagramm3"
            .Font.Color = vbMagenta
            Call prcChartsVisibility(False, False, True)
         Case Else
            .Caption = "Diagramm2"
            .Font.Color = vbBlue
            Call prcChartsVisibility(False, True, False)
     End Select
 End With
End Sub

Private Sub prcChartsVisibility(ParamArray ppavntArgs() As Variant)
    With ActiveSheet
        .ChartObjects(1).Visible = ppavntArgs(0)
        .ChartObjects(2).Visible = ppavntArgs(1)
        .ChartObjects(3).Visible = ppavntArgs(2)
    End With
End Sub

Gruß,

Ihre Antwort
  • 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: Name: Email:



  • 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
06.08.2018 00:21:36 Max
Solved
Blau ein ToggleButton mit Diagramme
 06.08.2018 00:52:12 Gast36088
NotSolved
06.08.2018 03:35:01 Max
NotSolved
06.08.2018 22:15:25 Gast36088
NotSolved