macro chart creation

  • Thread starter Thread starter Tith
  • Start date Start date
T

Tith

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.
 
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 Where:=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
 
Back
Top