Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run time error '1004'
Hi ,
The following code is running fine for the first time, but when i run it for the second time, the following error occurs. Run time error '1004' Method 'Charts' of object '_Global' failed. the errors occurs at Line " Charts.Add" '------------------------------------------------------Option Explicit Dim xlobj As Excel.Application Dim xlwkbk As Excel.Workbook Dim xlSheet As Excel.Worksheet Private Sub command1_Click() - On Error GoTo erb Set xlobj = CreateObject("Excel.Application") Set xlwkbk = xlobj.Workbooks.Add Set xlSheet = xlwkbk.Worksheets.Add xlSheet.Name = "A1" xlSheet.Cells(3, 3) = "a" xlSheet.Cells(3, 4)= "b" xlSheet.Cells(3, 5)="c" xlSheet.Cells(4, 3) = 10 xlSheet.Cells(4, 4)= 12 xlSheet.Cells(4, 5)= 11 xlobj.Application.Visible = True xlobj.Parent.Windows(1).Visible = True Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("A1").Range("C3:E4"), PlotBy:= xlRows ActiveChart.Location Whe=xlLocationAsObject, Name:="A1" With ActiveChart ..HasTitle = True ..ChartTitle.Characters.Text = "PQR% OVERALL" ..Axes(xlCategory, xlPrimary).HasTitle = True ..Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Companies" ..Axes(xlValue, xlPrimary).HasTitle = True ..Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "PQR%" End With end sub Can some help please. TIA, Gary |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
run time error 1004 | Excel Discussion (Misc queries) | |||
run time error 1004 | Excel Discussion (Misc queries) | |||
Run Time Error '1004' | Excel Discussion (Misc queries) | |||
Run time error 1004 | Excel Discussion (Misc queries) | |||
Run time error 1004, General ODBC error | New Users to Excel |