MSChartで散布図を表示するには？ (ID:80991)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

これでいいのでしょうか？
http://www.bcap.co.jp/hanafusa/  にMSChart 関係 がありますので
参考にして下さい。

Private Sub Form_Load()
    Dim MyData(4, 10) As Single
    Dim i As Integer, j As Integer
    Dim series As Object
    'ためしのデータです
    For i = 1 To 10
        MyData(1, i) = i * 10          'x値
        MyData(2, i) = i + 2           'y値
        MyData(3, i) = i * 10          'x値
        MyData(4, i) = (i + 2) * 1.2   'y値
    Next i
    With MSChart1
        .ColumnCount = 4
        .RowCount = 10
        'データをセット
        For i = 1 To 4
            .Column = i
            For j = 1 To 10
                .Row = j
                .Data = MyData(i, j)
            Next j
        Next i
    End With
    With MSChart1
        'グラフタイプを散布図に設定
        .Plot.UniformAxis = False  'グラフを横長に
        .chartType = VtChChartType2dXY
    End With

'すべての系列についてマーカーを表示し、線を表示解除します。
    For Each series In _
       MSChart1.Plot.SeriesCollection
       series.SeriesMarker.Show = True
       series.ShowLine = False
    Next
    'すべての系列についてマーカーを非表示し、線を表示します。
'    For Each series In MSChart1.Plot.SeriesCollection
'        series.SeriesMarker.Show = False
'        series.ShowLine = True
'    Next
    
    With MSChart1
       '凡例文字の設定
       .Plot.SeriesCollection(1).LegendText = "計算値"
       .Plot.SeriesCollection(3).LegendText = "分析値"
       '凡例の表示位置を設定
       .Legend.Location.LocationType = VtChLocationTypeRight
       .ShowLegend = True
    End With
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る