Snasui Excel Forum

Code: Select all

Sub CreateChart()
'PURPOSE: Create a chart (chart dimensions are not required)

Dim rng As Object
Dim cht As Object

'Your data range for the chart
For ii = 134 To 136
  Set rng = UserForm3.Controls("TextBox" & ii).Value
Next ii

'Create a chart
  Set cht = ActiveSheet.Shapes.AddChart2

'Give chart some data
  cht.Chart.SetSourceData Source:=rng

'Determine the chart type
  cht.Chart.ChartType = xlXYScatterLines

End Sub

Code: Select all

'Other code
Dim i As Integer

'Your data range for the chart
i = 2
For ii = 134 To 136
  Set rng = UserForm3.Controls("TextBox" & ii).Value
  Sheets(1).Range("a" & i).Value = rng.Value
  i = i + 1
Next ii

'Create a chart
  Set cht = ActiveSheet.Shapes.AddChart2

'Give chart some data
  cht.Chart.SetSourceData Source:=Sheets(1).Range("a2:a" & i) 'rng
'Other code