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

名前

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

本文 解決としましたが、図を少し作り替えたところ、不具合が発生しました。 これまでの散布図は、一つを線で、一つを点で表しましたが これからは、２つとも点で表すことになりました。 以下のコードで、図中のプロットは点だけになりうまくいったのですが 凡例のSeriesCollection(1) "計算値" の部分に 線が残ってしまっています。（凡例では点と線になっています。） SeriesCollection(3) "分析値" の方は問題ありません。 凡例と図の表現が異なるのはどうしたことでしょうか。 凡例の設定の仕方があるのでしょうか。 よろしくお願い致します。 Private Sub Form_Load() Dim MyData(10, 4) As Single Dim i As Integer 'ためしのデータです For i = 1 To 10 MyData(i, 1) = i * 10 'x値 MyData(i, 2) = i + 2 'y値(計算値） MyData(i, 3) = i * 10 'x値 MyData(i, 4) = (i + 2) * 1.2 'y値（分析値） Next i With MSChart1 .ChartData = MyData .Plot.UniformAxis = False .chartType = VtChChartType2dXY .Plot.SeriesCollection(1).LegendText = "計算値" .Plot.SeriesCollection(3).LegendText = "分析値" 'これで図中の線は消えますが、凡例の線は消えません .Plot.SeriesCollection(1).ShowLine = False .Plot.SeriesCollection(1).SeriesMarker.Auto = False .Plot.SeriesCollection(1).DataPoints(-1).Marker.Visible = True .Plot.SeriesCollection(1).DataPoints(-1).Marker.Style = VtMarkerStyleCircle .Plot.SeriesCollection(1).DataPoints(-1).Marker.Size = 100 .Plot.SeriesCollection(3).SeriesMarker.Auto = False .Plot.SeriesCollection(3).DataPoints(-1).Marker.Visible = True .Plot.SeriesCollection(3).DataPoints(-1).Marker.Style = VtMarkerStyleCircle .Plot.SeriesCollection(3).DataPoints(-1).Marker.Size = 150 .TitleText = "単純系" .ShowLegend = True End With End Sub