Hi I have a problem with adding 2 charts to an existing worksheet in VBA via worksheet.chartobjects.add routine
first one is fine and does what I want. The problem starts when I add the second chart, an error message appears: something like the HasTitle-property can not be set, runtime error '1004'
Can anyone help, please?
the code goes like that
Code
dim wsheet as worksheet
dim wchart1 as chartobject
dim wchart2 as chartobject
Set Wsheet = ActiveWorkbook.Sheets.Add(after:=Worksheets Worksheets.Count))
Wsheet.Name = "DATA"
Wsheet.Activate
Set WChart1 = .Wsheet.ChartObjects.Add(700, 30, 900, 400)
WChart1.Activate
WChart1.Chart.HasTitle = True
WChart1.Chart.ChartTitle.text = "Chart 1"
WChart1.Chart.ChartType = xlXYScatterLines
Set WChart2 = Wsheet.ChartObjects.Add(700, 30, 900, 400)
WChart2.Activate
WChart2.Chart.HasTitle = True
WChart2.Chart.ChartTitle.text = "Chart 2"
WChart2.Chart.ChartType = xlXYScatterLines
Display More