Another way though Andrew's is probably better as you can ock it to a cell rather than playing around with the width/left values
Application.Worksheets("Sheet").Activate
Dim rng As Range
Set rng = Application.Names("datarange").RefersToRange
Dim cht As ChartObject
Set cht = ActiveSheet.ChartObjects.Add _
(Left:=5, Width:=1000, Top:=1490, Height:=750)
With cht
.Chart.ChartType = xlXYScatter
.Chart.SetSourceData rng, xlColumns
.Chart.Location Where:=xlLocationAsObject, Name:="Sheet"
.Chart.HasTitle = True
.Chart.ChartTitle.Text = "='Sheet'!R79C1"
.Chart.Axes(xlCategory, xlPrimary).HasTitle = True
.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Actuation no."
.Chart.Axes(xlValue, xlPrimary).HasTitle = True
.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Title"
End With
etc. etc.