macro chart creation
 

I'm working on a VBA macro that will chart multiple series of data. How do I
tell the macro what range the series is on? I tried to do a record but that
gives me a static range.

macro chart creation
 

As ALWAYS, post YOUR code for comments

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Tith" wrote in message
...
I'm working on a VBA macro that will chart multiple series of data. How do
I
tell the macro what range the series is on? I tried to do a record but
that
gives me a static range.

macro chart creation
 

If myStartingPos = 0 Then

myStartingPos = 44
myEndPos = 7378
myEndColPos = 36

Series_Name = "TC1"
Chart_Name = "Unit 1"

myActiveSheet = Sheets(1).Name

End If


Dim myRange As Range
myRange = Range(Cells(myStartingPos, 3), Cells(myEndPos, 3))


Dim myXRange As Range
myXRange = Range(Cells(myStartingPos, 1), Cells(myEndPos, 1))

' Add the chart to the worksheet
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=myRange, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = myXRange
ActiveChart.SeriesCollection(1).Name = Series_Name
ActiveChart.Location Whe=xlLocationAsNewSheet, Name:="Chart " &
Chart_Name
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Chart_Name
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time (s)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Temperature
(C)"
End With

' Move the New Chart to the end
Sheets("Chart " & Chart_Name).Select
Sheets("Chart " & Chart_Name).Move After:=Sheets(2)

Sheets(myActiveSheet).Activate

End Sub





"Don Guillett" wrote:

As ALWAYS, post YOUR code for comments

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Tith" wrote in message
...
I'm working on a VBA macro that will chart multiple series of data. How do
I
tell the macro what range the series is on? I tried to do a record but
that
gives me a static range.

.