選択データの散布図を作成するマクロのメモ書きです。
Option Explicit
Sub MakeGraph()
Const CHART_WIDTH As Long = 300
Const CHART_HEIGHT As Long = 300
Dim myShapes As Shapes
Set myShapes = ActiveSheet.Shapes
Dim myChart As Shape
Set myChart = myShapes.AddChart(xlXYScatterLinesNoMarkers)
With myChart
.Chart.Legend.IncludeInLayout = False
.Chart.Legend.Position = xlLegendPositionCorner
.Width = CHART_WIDTH
.Height = CHART_HEIGHT
.Line.Visible = msoFalse
End With
End Sub