asked on
Dim ws As Worksheet
On Error Resume Next
ActiveSheet.Shapes.AddChart
ActiveChart.ChartType = xlLine
ActiveSheet.Shapes("Chart 5").IncrementLeft -5.25
ActiveSheet.Shapes("Chart 5").IncrementTop 99
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.XValues = RngX
ActiveChart.SeriesCollection(1).XValues = RngX
ActiveChart.ChartArea.Select
ActiveChart.HasAxis(xlTimeScale) = True
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).CategoryType = xlCategoryScale
ActiveChart.SeriesCollection(1).XValues = RngX
For i = 1 To UBound(InputRecords, 1)
ActiveChart.SeriesCollection.NewSeries
If i = 1 Then
ActiveChart.SeriesCollection(i).Name = ws.Cells(10, 3)
Set RngY = ws.Range(ws.Cells(11, 2), ws.Range(ws.Cells(, 3) & Cells.Rows.Count).End(xlUp))
ActiveChart.SeriesCollection(i).Values = RngY
Else
ActiveChart.SeriesCollection(i).Name = ws.Cells(10, i * 2)
Set RngY = ws.Range(ws.Cells(11, 2), ws.Range(ws.Cells(, i * 2) & Cells.Rows.Count).End(xlUp))
ActiveChart.SeriesCollection(i).Values = RngY
End If
Next i
Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.
TRUSTED BY