選択データの散布図を作成するマクロのメモ書きです。

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