VBAからVBへ

Sub nikai()
'
'
    Charts.Add
    ActiveChart.ChartType = xlXYScatterLines
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("E3")
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R1C1:R50C1"
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!R1C2:R50C2"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

このVBAでつくったプログラムをVB.netで使えるようにしてくれませんか？

(削除されました)

> 投稿者 @@   (社会人)   投稿日時 2009/11/06 12:42:43  
> Sub nikai()
> '
> '
>     Charts.Add
>     ActiveChart.ChartType = xlXYScatterLines
>     ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("E3")
>     ActiveChart.SeriesCollection.NewSeries
>     ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R1C1:R50C1"
>     ActiveChart.SeriesCollection(1).Values = "=Sheet1!R1C2:R50C2"
>     ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
> End Sub
> 
> このVBAでつくったプログラムをVB.netで使えるようにしてくれませんか？ 
 
えー・・・いやだなぁ・・・

互換性があるかどうかまでは未検証です。
尚、.NETのバージョンが解りませんが・・・

Microsoft Chart Controls for Microsoft .NET Framework 3.5
http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=130f7986-bf49-4fe5-9ca8-910ae6ea442c

Microsoft Chart Controls for Microsoft .NET Framework 3.5 言語パック
http://www.microsoft.com/downloads/details.aspx?familyid=581FF4E3-749F-4454-A5E3-DE4C463143BD&displaylang=ja

Chart Controlsが公開されてますので、VB6等のActiveXのChart Controlsを
使わなくてもできるようになりました。

以上。参考まで