ich habe auf meiner Arbeitsmappe/ Tabelle 8 Diagramme (siehe Bild). Wobei ich die Nummer der Chartobjects angenommen habe
Ich habe auf meiner Arbeitsmappe 8 Buttons um diese Diagramme ein- und auszublenden. Die möchte ich mit folgender Methode auf vier Buttons reduzieren.
Sub CommandButton_CEC_1_Click()
If ActiveSheet.ChartObjects(1).Visible Then
ActiveSheet.ChartObjects(2).Visible = True
ActiveSheet.ChartObjects(1).Visible = False
Else
ActiveSheet.ChartObjects(2).Visible = False
ActiveSheet.ChartObjects(1).Visible = True
End If
'Flächenbelegung im Dock IST
ActiveSheet.ChartObjects(3).Visbible = False
'Flächenbelegung im DOCK PLAN
ActiveSheet.ChartObjects(4).Visbible = False
'Flächenbelegung im Upper Deck IST
ActiveSheet.ChartObjects(5).Visbible = False
'Flächenbelegung im Main Deck IST
ActiveSheet.ChartObjects(6).Visbible = False
'Flächenbelegung im Main Deck Plan
ActiveSheet.ChartObjects(7).Visbible = False
'Flächenbelegung im Upper Deck Plan
ActiveSheet.ChartObjects(8).Visbible = False
End Sub
Sobald der Compiler hier ankommt:
ActiveSheet.ChartObjects(3).Visbible = False
Objekt unterstützt diese Eigenschaft oder Methode nichtHabt ihr eine Idee?
Viele Grüße
Christian