VBA_散布図の挿入

ChartType を xlXYScatter にすればよい。

ActiveSheet.Shapes.AddChart.Chart.ChartType = xlXYScatter

 f:id:koshinRan:20180121231419p:plain

 

他の散布図にしたい時は以下の値を設定する。

xlXYScatterLines
:折れ線付き

f:id:koshinRan:20180121231722p:plain

xlXYScatterLinesNoMarkers 
:折れ線付き (データ マーカーなし)

f:id:koshinRan:20180121231758p:plain

xlXYScatterSmooth 
:平滑線付き

f:id:koshinRan:20180121231516p:plain

xlXYScatterSmoothNoMarkers 
:平滑線付き (データ マーカーなし)

f:id:koshinRan:20180121231649p:plain

 

ex)
種類を散布図にし、データ範囲を A1:B4 に指定し C4 の位置にグラフを合わせ、
セル範囲 C4:J20  の大きさのグラフを作成。

Sub test01()
    Workbooks.Open ("操作するファイルのフルパス")
    Worksheets("Sheet1").Activate

    With ActiveSheet.Shapes.AddChart.Chart
        .ChartType = xlXYScatter
        .SetSourceData Range("A1:B4")
    End With
   
    With ActiveSheet.ChartObjects(1)
        .Top = Range("C4").Top
        .Left = Range("C4").Left
        .Width = Range("C4:J20").Width
        .Height = Range("C4:J20").Height
    End With
   
End Sub

f:id:koshinRan:20180121234111p:plain

 

 

こちらから。
http://officetanaka.net/excel/vba/graph/06.htm
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/xlcharttype-enumeration-excel

 

以上。