Условно Отображение графиков

Question

У меня есть куча графиков на одном листе. Кроме того, у меня есть выпадающее меню элементов. Когда я выбираю конкретный элемент, я хочу показать только график, связанный с этим элементом. Как мне это сделать?

Вот макрос:

Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Address = "$A$2" Then 
     ActiveSheet.ChartObjects.Visible = False 
     On Error Resume Next 
     ChartObjects(Target.Value).Visible = True 
End If 
End Sub 

Когда я выбираю пункт из выпадающего меню, я должен нажать на другую ячейку, а затем нажмите кнопку назад в раскрывающемся меню, чтобы получить график, чтобы показать. Как получить график, чтобы показать мгновенно?

Answer 1

Вместо этого я бы создал поле со списком ActiveX (вкладка Developers -> Insert-> ComboBox).
Тогда вместо WorkSheet_Change использовать ComboBox1_Click() в качестве обработчика события

Доступ выбранного элемента с ComboBox1.value (если вы не измените «ComboBox1» имя по умолчанию).