Microsoft Chart Control で Chartをクリップボードにコピー
下記サンプルは、必ず、CSVファイルを使っての基本的なグラフの表示 をご覧になってからお試しください。

Private Sub Button17_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button17.Click
'Microsoft Chart Control で Chartをクリップボードにコピー
   Call ChartClar(Chart1)  '設定を一旦初期値に戻す。(通常は必要ありません。)
   With Chart1
      For i As Integer = 1 To colums
         Dim columnName As String = ds.Tables(0).Columns(i).ColumnName.ToString()
         '系列の設定(国語・数学等)
         .Series.Add(columnName)
         'グラフの種類を縦棒グラフに設定
         .Series(columnName).ChartType = DataVisualization.Charting.SeriesChartType.Column
         'X 軸のラベルテキストの読込・設定(浅野等の氏名)
         .Series(columnName).XValueMember = ds.Tables(0).Columns(0).ColumnName.ToString()
         'グラフ用のデータの読込・設定(点数)
         .Series(columnName).YValueMembers = columnName
      Next
   End With
'------------- ここまでは、基本的な表示設定と同じ -----------------------------------------

   '■--------------- Chartをクリップボードにコピー ------------Start--■
   Using memStream As New System.IO.MemoryStream()
      '一旦 Stream オブジェクトに保存
      Chart1.SaveImage(memStream, System.Drawing.Imaging.ImageFormat.Bmp)
      Dim bmp As New Bitmap(memStream)
      'ビットマップをクリップボードに貼り付け
      Clipboard.SetDataObject(bmp)
   End Using
   '■----------------------------------------------------------End----■

End Sub
　
これで、クリップボードの方にコピーされているので、ペイントでも起動して貼り付けを実行して、確認して見てください。


2011/04/25

VBレスキュー(花ちゃん)
Visual Basic6.0　 VB6.0
VB.NET2003/VB2005/VB2008/VB2010