Option
Explicit
Private
Sub
ToggleButton1_Click()
With
ToggleButton1
If
.Value
And
.Caption <>
"Chart2"
Then
ChartObjects(1).Visible =
True
.Caption =
"Invisible_Chart1"
.ForeColor = vbRed
ElseIf
.Value
And
.Caption =
"Chart2"
Then
ChartObjects(2).Visible =
True
.Caption =
"Invisible_Chart2"
.ForeColor = vbRed
ElseIf
.Caption =
"Invisible_Chart1"
Then
ChartObjects.Visible =
False
.Caption =
"Chart2"
.ForeColor = vbBlack
Else
ChartObjects.Visible =
False
.Caption =
"Chart1"
.ForeColor = vbBlack
End
If
End
With
End
Sub