'GRAPH 1 **********
Dim rChartStartCell As range
Dim rDataStartCell As range
Dim rXVals As range
Dim rYVals As range
Dim LastRow As Long
Dim i As Long
Dim j As Long
Dim WidthPos1 As Long
WidthPos1 = 620
With Worksheets("Sheet2")
Set rChartStartCell = .range("B2")
Set rDataStartCell = .range("C41")
For i = 1 To 1
LastRow = .Cells(.Rows.count, rDataStartCell.Column).End(xlUp).Row
If LastRow >= 41 Then
Set rXVals = range(rDataStartCell, .Cells(LastRow, rDataStartCell.Column))
Set rYVals = rXVals.Offset(, 6).Resize(, 2)
With .ChartObjects.Add(Left:=rChartStartCell.Left, Width:=WidthPos1, Top:=rChartStartCell.Top, Height:=rChartStartCell.Resize(26).Height).chart
.Parent.Placement = xlFreeFloating
.ChartType = xlXYScatter
Do While .SeriesCollection.count > 0
.SeriesCollection(1).Delete
Loop
For j = 1 To rYVals.Columns.count
With .SeriesCollection.NewSeries
If j = 1 Then
.Name = "=" & rDataStartCell.Offset(, 2).Address(, , , True)
Else
.Name = "=" & rDataStartCell.Offset(-1, 7).Address(, , , True)
End If
.XValues = rXVals
.Values = rYVals.Columns(j)
'.ChartObjects.Placement = xlMove
'Change Marker Style For CI and Backstop
Select Case j
Case 1
.MarkerStyle = xlMarkerStyleStar
.MarkerSize = 5
Case Else
.MarkerSize = 6
.MarkerBackgroundColor = RGB(200, 0, 0)
.MarkerStyle = xlMarkerStyleDot
With .Format.Line
.Style = msoLineSingle
.BackColor.RGB = RGB(200, 0, 0)
.ForeColor.RGB = RGB(200, 0, 0)
End With
End Select
'.Axes(xlXYScatter).TickLabels.Orientation = xlDownward
'.PlotArea.Width = ch.ChartArea.Width / 2
'.PlotArea.Height = ch.ChartArea.Height / 2
'.Axes(xlCategory).AxisTitle.Orientation = 90
End With
Next j
End With
End If
Set rChartStartCell = rChartStartCell.Offset(, 8)
Set rDataStartCell = rDataStartCell.Offset(, 10)
' With Worksheets("Sheet2").ChartObjects.chart
' With .Axes(xlCategory)
' .TickLabels.Orientation = -90
' End With
'End With
Next i
End With
'Graph2
Dim WidthPos2 As Long
WidthPos2 = 620
With Worksheets("Sheet2")
Set rChartStartCell = .range("L2")
Set rDataStartCell = .range("M41")
For i = 1 To 1
LastRow = .Cells(.Rows.count, rDataStartCell.Column).End(xlUp).Row
If LastRow >= 41 Then
Set rXVals = range(rDataStartCell, .Cells(LastRow, rDataStartCell.Column))
Set rYVals = rXVals.Offset(, 6).Resize(, 2)
With .ChartObjects.Add(Left:=rChartStartCell.Left, Width:=WidthPos2, Top:=rChartStartCell.Top, Height:=rChartStartCell.Resize(26).Height).chart
.Parent.Placement = xlFreeFloating
.ChartType = xlXYScatter
Do While .SeriesCollection.count > 0
.SeriesCollection(1).Delete
Loop
For j = 1 To rYVals.Columns.count
With .SeriesCollection.NewSeries
If j = 1 Then
.Name = "=" & rDataStartCell.Offset(, 2).Address(, , , True)
Else
.Name = "=" & rDataStartCell.Offset(-1, 7).Address(, , , True)
End If
.XValues = rXVals
.Values = rYVals.Columns(j)
'Change Marker Style For CI and Backstop
Select Case j
Case 1
.MarkerStyle = xlMarkerStyleStar
.MarkerSize = 5
Case Else
.MarkerSize = 6
.MarkerBackgroundColor = RGB(200, 0, 0)
.MarkerStyle = xlMarkerStyleDot
With .Format.Line
.Style = msoLineSingle
.BackColor.RGB = RGB(200, 0, 0)
.ForeColor.RGB = RGB(200, 0, 0)
End With
End Select
End With
Next j
End With
End If
Set rChartStartCell = rChartStartCell.Offset(, 10)
Set rDataStartCell = rDataStartCell.Offset(, 10)
Next i
End With
'Graph 3
Dim LeftPos3 As Long
Dim WidthPos3 As Long
LeftPos3 = 1608
WidthPos3 = 620
With Worksheets("Sheet2")
Set rChartStartCell = .range("V2")
Set rDataStartCell = .range("W41")
For i = 1 To 1
LastRow = .Cells(.Rows.count, rDataStartCell.Column).End(xlUp).Row
If LastRow >= 41 Then
Set rXVals = range(rDataStartCell, .Cells(LastRow, rDataStartCell.Column))
Set rYVals = rXVals.Offset(, 6).Resize(, 2)
With .ChartObjects.Add(Left:=LeftPos3, Width:=WidthPos3, Top:=rChartStartCell.Top, Height:=rChartStartCell.Resize(26).Height).chart
.Parent.Placement = xlFreeFloating
.ChartType = xlXYScatter
Do While .SeriesCollection.count > 0
.SeriesCollection(1).Delete
Loop
For j = 1 To rYVals.Columns.count
With .SeriesCollection.NewSeries
If j = 1 Then
.Name = "=" & rDataStartCell.Offset(, 2).Address(, , , True)
Else
.Name = "=" & rDataStartCell.Offset(-1, 7).Address(, , , True)
End If
.XValues = rXVals
.Values = rYVals.Columns(j)
'Change Marker Style For CI and Backstop
Select Case j
Case 1
.MarkerStyle = xlMarkerStyleStar
.MarkerSize = 5
Case Else
.MarkerSize = 6
.MarkerBackgroundColor = RGB(200, 0, 0)
.MarkerStyle = xlMarkerStyleDot
With .Format.Line
.Style = msoLineSingle
.BackColor.RGB = RGB(200, 0, 0)
.ForeColor.RGB = RGB(200, 0, 0)
End With
End Select
End With
Next j
End With
End If
Set rChartStartCell = rChartStartCell.Offset(, 10)
Set rDataStartCell = rDataStartCell.Offset(, 10)
Next i
End With
'Graph 4
Dim LeftPos4 As Long
Dim WidthPos4 As Long
LeftPos4 = 2470
WidthPos4 = 620
With Worksheets("Sheet2")
Set rChartStartCell = .range("AF2")
Set rDataStartCell = .range("AG41")
For i = 1 To 1
LastRow = .Cells(.Rows.count, rDataStartCell.Column).End(xlUp).Row
If LastRow >= 41 Then
Set rXVals = range(rDataStartCell, .Cells(LastRow, rDataStartCell.Column))
Set rYVals = rXVals.Offset(, 6).Resize(, 2)
With .ChartObjects.Add(Left:=LeftPos4, Width:=WidthPos4, Top:=rChartStartCell.Top, Height:=rChartStartCell.Resize(26).Height).chart
.Parent.Placement = xlFreeFloating
.ChartType = xlXYScatter
Do While .SeriesCollection.count > 0
.SeriesCollection(1).Delete
Loop
For j = 1 To rYVals.Columns.count
With .SeriesCollection.NewSeries
If j = 1 Then
.Name = "=" & rDataStartCell.Offset(, 2).Address(, , , True)
Else
.Name = "=" & rDataStartCell.Offset(-1, 7).Address(, , , True)
End If
.XValues = rXVals
.Values = rYVals.Columns(j)
'Change Marker Style For CI and Backstop
Select Case j
Case 1
.MarkerStyle = xlMarkerStyleStar
.MarkerSize = 5
Case Else
.MarkerSize = 6
.MarkerBackgroundColor = RGB(200, 0, 0)
.MarkerStyle = xlMarkerStyleDot
With .Format.Line
.Style = msoLineSingle
.BackColor.RGB = RGB(200, 0, 0)
.ForeColor.RGB = RGB(200, 0, 0)
End With
End Select
End With
Next j
End With
End If
Set rChartStartCell = rChartStartCell.Offset(, 10)
Set rDataStartCell = rDataStartCell.Offset(, 10)
Next i
End With
Ive tried the [CODE].Parent.Placement = xlFreeFloating