VBA code not working as required

[posfog]

Morning All,
First off Happy New Year to you all!!

Secondly I have the following code that when i click on a graph that is assoicated with the Macro its not sizing correctly to the given cells detailed in the coding.

could anyone advise at all please?

Sub Chart6_Click()
Dim ws As Worksheet
Dim chto As ChartObject
Dim rSmall As Range, rBig As Range
Static b As Boolean
Set chto = Worksheets("Delivery Overview").ChartObjects("Chart 6")
Set rSmall = Worksheets("Delivery Overview").Range("o13:x27")
Set rBig = Worksheets("Delivery Overview").Range("D13:AY92")

If b Then
chto.BringToFront
chto.Width = rSmall.Width
chto.Height = rSmall.Height
chto.Left = rSmall.Left
chto.Top = rSmall.Top
Else
chto.BringToFront
chto.Width = rBig.Width
chto.Height = rBig.Height
chto.Left = rBig.Left
chto.Top = rBig.Top


End If
b = Not b
End Sub


Kind Regards

 

[KOKOSEK]

Works fine for me.
What do you mean exactly by not correctly?

 

[posfog]

Hi,
for example the graph is ether smaller or bigger than the set out cell references as shown below

Set rSmall = Worksheets("Delivery Overview").Range("o13:x27")
Set rBig = Worksheets("Delivery Overview").Range("D13:AY92")

Regards

 

[KOKOSEK]

I see it exactly in your code and as I said imho works as it should.

 

[posfog]

Hi KOKOSEK, thats strange then.
There isnt any settings in excel to make things like this work differently is there???

Thanks again for your replies.

 

[KOKOSEK]

What exactly works wrong? Bigger than rBig, smaller than rSmall or move correctly in top/left but not with width/height?