Change Layout of Column chart

[ChrisAch]

Hi

Can anyone see what I am doing wrong on my below code below.

I have entered the column chart as requested, and want layout 6 applied.

I have added layout six as wanted, but when code runs no layout is applied ...


Sub AddChart()
Dim MyChart As Chart
Dim MyRange As Range



Set MyRange = Range("DATASETTWOTWO")

Set MyChart = ActiveSheet.Shapes.AddChart(xlColumnClustered).Chart

MyChart.SetSourceData Source:=MyRange

MyChart.SeriesCollection(1).Name = Range("B3").Value



Dim cht As ChartObject
Set cht = ActiveSheet.ChartObjects("Chart 4")
'Ensure chart has a title
cht.Chart.HasTitle = True
'Change chart's title
cht.Chart.ChartTitle.Text = "Chris Chart"

ActiveSheet.ChartObjects("Chart 4").Activate


ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.ApplyLayout (6)


ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Chart 4").IncrementLeft -120.75
ActiveSheet.Shapes("Chart 4").IncrementTop 40.5
ActiveSheet.Shapes("Chart 4").IncrementLeft -95.25
ActiveSheet.Shapes("Chart 4").IncrementTop 41.25
ActiveSheet.Shapes("Chart 4").ScaleWidth 2.24375, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 4").ScaleHeight 1.4583333333, msoFalse, _
msoScaleFromTopLeft

End Sub


Thank you

[p45cal]

I'm guessing it IS being applied but your source data me be such that you can't see the difference.
How about attaching a file with this (not) happening?