Creating one programmatically is no problem....

It's making adjustments to it that I have a problem with...

I'm stuck with how to refer to a chart object that you just made.
I obviously can't refer to it as 'Chart 4' if I do this to twenty charts...

So I tried this but it doesn't work: (any tips?)


strCurrentChart = ActiveChart.Name
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Call Access"
End With
ActiveChart.ChartArea.Select
ActiveChart.Location Whe=xlLocationAsObject, Name:="Multi"
ActiveSheet.Shapes(strCurrentChart).IncrementLeft -183.75
ActiveSheet.Shapes(strCurrentChart).IncrementTop -121.5
ActiveSheet.Shapes(strCurrentChart).ScaleWidth 0.52, msoFalse,
msoScaleFromTopLeft
ActiveSheet.Shapes(strCurrentChart).ScaleHeight 0.56, msoFalse,
msoScaleFromTopLeft
ActiveChart.Legend.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8

End With