VBA to hide chart

[Tfox2791]

I am using the code below in an attempt to hide the entire chart itself. For some reason it hides the chart data or something so the chart still remains visible just blank? Any suggestions?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A5").Value = "EST1" Then
Sheets("Dashboard").Shapes("MWC1").Visible = True
Sheets("Dashboard").Shapes("MWC2").Visible = False
Sheets("Dashboard").Shapes("MWC3").Visible = False
ElseIf Range("A5").Value = "EST2" Then

Sheets("Dashboard").Shapes("MWC1").Visible = True
Sheets("Dashboard").Shapes("MWC2").Visible = True
Sheets("Dashboard").Shapes("MWC3").Visible = True

Else

Sheets("Dashboard").Shapes("MWC1").Visible = True
Sheets("Dashboard").Shapes("MWC2").Visible = True
Sheets("Dashboard").Shapes("MWC3").Visible = True


End If
End Sub



Thanks!!!!!!

 

[RickXL]

Hi,

Assuming the shape names are the chart names then all I can say is it works for me.

Have you perhaps got more charts on display than you think, maybe some without data?

Here is some code that will list out all the Charts on the Dashboard sheet:

Sub chList()
    Dim ch  As ChartObject
    For Each ch In Sheets("Dashboard").ChartObjects
        Debug.Print ch.Name
    Next
End Sub

The list will be written to the Immediate Window.
(Either select from VBE View menu of hit Ctrl + G to view.)

 

[Tfox2791]

Thanks for your reply Rick. I figured it out by accident. I set it up based off of a selection change when it should have been set up on a button click. Once I selected another cell in the worksheet it worked, go figure.

Anyway thanks again!

 

[RickXL]

No problem. I am pleased you got it working.

Regards,