Hi all,
i am trying to automate multiple charts by manipulating macros.
i have data on 17 different sheets and wish to create a chart for the same data range in each sheet.
Problem is i keep getting run time error - 438, 'object dosen't support this property or method'
Any ideas?
Thanks..
P.S.
here is my code
Sub Macro1()
'
' Macro1 Macro
'
'
Dim i As Integer
For i = 1 To 17
Columns("B:G").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets(i).Range("B1:G673"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Next i
End Sub
|