ChrisAch
07-21-2016, 04:10 AM
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
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