Выключатель Activex

Автор CHED, 23 мая 2015, 21:02

CHED

Выложил простой пример того, чтобы хотелось получить.
Есть две кнопки: включить и выключить график.
Можно ли как-то эти две кнопки (простые button) соединить в одну (Выключатель элемент Activex).
Чтобы при нажатии на нее (кнопка в состоянии "нажата")график включался, при повторном нажатии (кнопка "отжата") выключался график.

[вложение удалено администратором]

Администратор

Вариант 1
Private Sub ToggleButton1_Click()
    If Me.ToggleButton1.Value = True Then
        ActiveSheet.ChartObjects("Диаграмма 1").Visible = msoTrue
    Else
        ActiveSheet.ChartObjects("Диаграмма 1").Visible = msoFalse
    End If
End Sub

Вариант 2
Private Sub ToggleButton1_Click()
    ActiveSheet.ChartObjects("Диаграмма 1").Visible = Me.ToggleButton1.Value
End Sub