Thema Datum  Von Nutzer Rating
Antwort
03.07.2018 23:50:04 dan
NotSolved
Blau Zwei Diagramme mit einem Toggelbutton
 04.07.2018 04:34:27 Gast51082
NotSolved
04.07.2018 04:50:03 Gast14141
NotSolved
04.07.2018 21:30:27 Gast38132
NotSolved
05.07.2018 00:12:48 Gast86848
NotSolved
05.07.2018 08:20:51 dan
NotSolved

Ansicht des Beitrags:
Von:
Gast51082		 Datum:
04.07.2018 04:34:27		 Views:
500		 Rating:
     
Antwort:
  Ja
Thema:
Zwei Diagramme mit einem Toggelbutton

Hallo,

kannst mal probieren, Code kommt in das Tabellenblattmodul Deiner Tabelle mit Button und Chart...

Option Explicit

Private Sub ToggleButton1_Click()
With ToggleButton1
    If .Value And ChartObjects.Count = 0 And .Caption <> "Chart2" Then
       Call Insert_Chart(pvstrAddress:="'" & Name & "'!$A$1:$C$7")  '// Deine Bereiche anpassen...!!!!(s.u.)
       .Caption = "Delete_Chart1"
       .ForeColor = vbRed
    ElseIf .Value And ChartObjects.Count = 0 And .Caption = "Chart2" Then
       Call Insert_Chart(pvstrAddress:="'" & Name & "'!$A$11:$C$15")
        .Caption = "Delete_Chart2"
        .ForeColor = vbRed
    ElseIf .Caption = "Delete_Chart1" Then
        Call ChartObjects.Delete
        .Caption = "Chart2"
        .ForeColor = vbBlack
    Else
        Call ChartObjects.Delete
        .Caption = "Chart1"
        .ForeColor = vbBlack
    End If
End With
End Sub

Private Sub Insert_Chart(ByVal pvstrAddress As String)
    With Shapes.AddChart.Chart
        Call .SetSourceData(Source:=Range(pvstrAddress))
        .ChartType = xl3DColumnClustered
    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
03.07.2018 23:50:04 dan
NotSolved
Blau Zwei Diagramme mit einem Toggelbutton
 04.07.2018 04:34:27 Gast51082
NotSolved
04.07.2018 04:50:03 Gast14141
NotSolved
04.07.2018 21:30:27 Gast38132
NotSolved
05.07.2018 00:12:48 Gast86848
NotSolved
05.07.2018 08:20:51 dan
NotSolved