ich möchte ein komplettes Diagramm mithilfe eines Kontrollkästchens ein- bzw. ausblenden.
Bekomme den Code aber einfach nicht hin. Ist das überhaupt möglich?
Mit Checkboxen hab ich bisher keine Erfahrung.
Private Sub CheckBox1_Click()
With Me
If .CheckBox1 Then
.ChartObjects(1).Visible = True
Else:
.ChartObjects(1).Visible = False
End If
End With
End Sub
Wird bei jedem Klicken auf die Checkbox ausgeführt.ChartObjects("Chart 1").Visible = CheckBox1.Value
Oder...ChartObjects("Chart 1").Visible = Not CheckBox1.Value
Den Diagrammnamen musst Du natürlich anpassen.Sub Kontrollkästchen1_Klicken()
Worksheets("Tabelle1").ChartObjects(1).Visible = _
Not (Worksheets("Tabelle1").ChartObjects(1).Visible)
End Sub
Private Sub CheckBox1_Click()
ChartObjects(1).Visible = CheckBox1
End Sub
Gruess HansueliSub CheckBox2_Click()
ChartObjects(1).Visible = CheckBoxes(Application.Caller).Value = 1
End Sub