1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| ' Draw the chart
Dim MyChart As Chart, MySheet As Worksheet, MyData As Range
Dim DateCol As Range, ChartCounter As Long, PlageY As Range
Dim AnnualizedHV As Range, MySeries As Series
Dim MySpace As Range
Set MySheet = ThisWorkbook.Worksheets("Main")
With MySheet
Set MySpace = .Range("E11:K27") ' <----
Set MyData = .Range(.Cells(RowStart, 1), Cells(RowEnd, 4))
End With
Set MyChart = MySheet.Charts.Add(MySpace.Left, MySpace.Top, _
MySpace.Width, MySpace.Height).Chart
'Set MyChart = MySheet.ChartObjects.Add(MySpace.Left, MySpace.Top, _
MySpace.Width, MySpace.Height).Chart
With MyChart
.ChartArea.Clear
.ChartType = xlXYScatterLines
End With
Set DateCol = MyData.Columns(1)
Set AnnualizedHV = MyData.Columns(4)
Set MySeries = MyChart.SeriesCollection.NewSeries
With MySeries
.Values = AnnualizedHV
.XValues = DateCol
.Name = Cells(8, 4).Value
End With |
