Boogerbut74
New Member
- Joined
- Oct 17, 2022
- Messages
- 26
- Office Version
- 365
- Platform
- Windows
VBA Code:
Sub Test_6()
Dim lastrow As Integer
lastrow = Cells(Rows.Count, 10).End(xlUp).Row
'setting x and y axis
Set yData = ActiveSheet.Range("F11:t" & lastrow)
Set xData = ActiveSheet.Range("D11:D" & lastrow)
Set GraphRange = Union(xData, yData)
'Create a chart
Set cht = ActiveSheet.ChartObjects.Add( _
Left:=ActiveCell.Left, _
Width:=450, _
Top:=ActiveCell.Top, _
Height:=250)
'Give chart some data
cht.Chart.SetSourceData Source:=GraphRange
'Determine the chart type
cht.Chart.ChartType = xlXYScatterSmooth
'edits chart detailes
cht.Chart.Axes(xlCategory).MinimumScale = 0
cht.Chart.Axes(xlCategory).MaximumScale = 100
cht.Chart.Axes(xlValue).MinimumScale = 115
cht.Chart.Axes(xlValue).MaximumScale = 140
cht.Chart.Legend.Position = xlLegendPositionBottom
End Sub