Charts

Hi Melanie,

Thank you for your question and sorry for the delay in responding.

Please find the chart code below:


Sub ColumnClustered()

Dim aChart As Chart

Set aChart = Charts.Add
Set aChart = aChart.Location(Where:=xlLocationAsObject, Name:="Basic Concepts")

Sheets("Basic Concepts").Select


With aChart

.ChartType = xlColumnClustered
.SetSourceData Source:=Sheets("Basic Concepts").Range("F1").CurrentRegion
.HasTitle = True
.ChartTitle.Text = "items per line"

With .Parent

.Top = Range("F14").Top
.Left = Range("F14").Left
.Name = "ItemsPerLine"

End With


End With

ActiveSheet.Shapes(1).Width = 1000
ActiveSheet.Shapes(1).Width = 500

End Sub

I hope this helps.

Regards

Simon