Код VBA, чтобы скрыть группу сводной диаграммы + графика + фигуры + слайсеры - PullRequest
Новая
       5

Код VBA, чтобы скрыть группу сводной диаграммы + графика + фигуры + слайсеры

1 голос
/ 17 апреля 2020

У меня есть группа сводных диаграмм + графика + фигуры + слайсеры, которые я собрал только для того, чтобы иметь возможность перемещаться по листу - за ними у меня есть сводная диаграмма. Я хочу переключить видимость этой группы (или всех элементов вместе) с помощью одной кнопки. Вот мой код, который возвращает ошибку «Объект не поддерживает это свойство метода» 

Private Sub ToggleButton1_Click()
With ToggleButton1
If .Value Then
    .Caption = "Hide Graph"
    Sheets("CHART").Objects.Range(Array("Chart 1", "Straight Connector 7", "TextBox 5", "Customer" [slicer], "Customer Group"[slicer])).Visible = True
    Sheets("CHART").Objects.Range(Array("Chart 1", "Straight Connector 7", "TextBox 5", "Customer", "Customer Group")).Activate
 Else
    .Caption = "Show Graph"
    Sheets("CHART").Objects.Range(Array("Chart 1", "Straight Connector 7", "TextBox 5", "Customer", "Customer Group")).Visible = False
    End If
End With
End Sub

Спасибо

РЕДАКТИРОВАТЬ

Этот код работает с:

Private Sub ToggleButton1_Click() With ToggleButton1 If .Value Then .Caption = "Hide Graph" ActiveSheet.Shapes("Group 8").Visible = True Else .Caption = "Show Graph" ActiveSheet.Shapes("Group 8").Visible = False End If End With End Sub

...