First of all thanks for looking. I have VBA program that reads creates
about 5 charts each with its own series. The issue now is how can I
add a code to see all 5 charts on the same sheet.

CODE:
If once = 0 Then
Range("A1").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
once = 1
End If

If crnt_sht 1 Then
ActiveChart.SeriesCollection.NewSeries
End If

With Worksheets(crnt_sht)
ActiveChart.SeriesCollection(crnt_sht).XValues = .Range(F1 &
":" & F2)
ActiveChart.SeriesCollection(crnt_sht).Values = .Range(F3 & ":"
& L1)
End With

ActiveChart.Location Whe=xlLocationAsObject, Name:="sheet1"


With ActiveChart
..HasTitle = True
..ChartTitle.Characters.Text = search_item_arr(srch_count) &
" ]"
..Axes(xlCategory, xlPrimary).HasTitle = False
..Axes(xlValue, xlPrimary).HasTitle = False
End With


ActiveWindow.Visible = False
Windows("under const.xls").Activate


--
osman
------------------------------------------------------------------------
osman's Profile: http://www.excelforum.com/member.php...o&userid=34226
View this thread: http://www.excelforum.com/showthread...hreadid=564286

It may help to define the name of each chart first. Then you can set the
location and size of the chart in this way (the location is changed by the
first two of the 4 numbers, and the size by the last two).
For example:

dim chtChart as chart

with ActiveSheet
Set chtChart = .ChartObjects.Add(50, 50, 600, 300).Chart
end with


"osman" wrote in
message ...

First of all thanks for looking. I have VBA program that reads creates
about 5 charts each with its own series. The issue now is how can I
add a code to see all 5 charts on the same sheet.

CODE:
If once = 0 Then
Range("A1").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
once = 1
End If

If crnt_sht 1 Then
ActiveChart.SeriesCollection.NewSeries
End If

With Worksheets(crnt_sht)
ActiveChart.SeriesCollection(crnt_sht).XValues = .Range(F1 &
":" & F2)
ActiveChart.SeriesCollection(crnt_sht).Values = .Range(F3 & ":"
& L1)
End With

ActiveChart.Location Whe=xlLocationAsObject, Name:="sheet1"


With ActiveChart
HasTitle = True
ChartTitle.Characters.Text = search_item_arr(srch_count) &
" ]"
Axes(xlCategory, xlPrimary).HasTitle = False
Axes(xlValue, xlPrimary).HasTitle = False
End With


ActiveWindow.Visible = False
Windows("under const.xls").Activate


--
osman
------------------------------------------------------------------------
osman's Profile:
http://www.excelforum.com/member.php...o&userid=34226
View this thread: http://www.excelforum.com/showthread...hreadid=564286

Thanks Graham, I will try that..

Graham Whitehead Wrote:
It may help to define the name of each chart first. Then you can set
the
location and size of the chart in this way (the location is changed by
the
first two of the 4 numbers, and the size by the last two).
For example:

dim chtChart as chart

with ActiveSheet
Set chtChart = .ChartObjects.Add(50, 50, 600, 300).Chart
end with


"osman" wrote in
message ...

First of all thanks for looking. I have VBA program that reads
creates
about 5 charts each with its own series. The issue now is how can I
add a code to see all 5 charts on the same sheet.

CODE:
If once = 0 Then
Range("A1").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
once = 1
End If

If crnt_sht 1 Then
ActiveChart.SeriesCollection.NewSeries
End If

With Worksheets(crnt_sht)
ActiveChart.SeriesCollection(crnt_sht).XValues = .Range(F1 &
":" & F2)
ActiveChart.SeriesCollection(crnt_sht).Values = .Range(F3 & ":"
& L1)
End With

ActiveChart.Location Whe=xlLocationAsObject, Name:="sheet1"


With ActiveChart
HasTitle = True
ChartTitle.Characters.Text = search_item_arr(srch_count) &
" ]"
Axes(xlCategory, xlPrimary).HasTitle = False
Axes(xlValue, xlPrimary).HasTitle = False
End With


ActiveWindow.Visible = False
Windows("under const.xls").Activate


--
osman

------------------------------------------------------------------------
osman's Profile:
http://www.excelforum.com/member.php...o&userid=34226
View this thread:
http://www.excelforum.com/showthread...hreadid=564286



--
osman
------------------------------------------------------------------------
osman's Profile: http://www.excelforum.com/member.php...o&userid=34226
View this thread: http://www.excelforum.com/showthread...hreadid=564286