Graph to enlarge when clicked then to go back to normal ??

[posfog]

Morning All,
I have a table with data showing on it and a small graph underneath it showing what the table is above. Due to size restrictions on this i am unable to show the graph in a decent size so wondered how i can get the graph to go full size when "Clicked" and for it to go back to normal when "Clicked" again.

Any advice would be greatly received

Regards
P

 

[pgc01]

Same thing with a simpler syntax:

Sub MyChart_Click()
Dim chto As ChartObject
Dim rSmall As Range, rBig As Range
Static b As Boolean

With Worksheets("Sheet1")
    Set chto = .ChartObjects(1)
    Set rSmall = .Range("E10:J20")
    Set rBig = .Range("C10:M25")
End With

With IIf(b, rSmall, rBig)
    chto.Width = .Width
    chto.Height = .Height
    chto.Left = .Left
    chto.Top = .Top
End With

b = Not b
End Sub