VBAからVBへ への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 オショウ  (社会人) 投稿日時 2009/11/30 07:30:19
互換性があるかどうかまでは未検証です。
尚、.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を
使わなくてもできるようになりました。

以上。参考まで
0
投稿者 @@  (学生) 投稿日時 2009/11/8 03:58:58
> 投稿者 @@   (社会人)   投稿日時 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で使えるようにしてくれませんか？ 
 
えー・・・いやだなぁ・・・
0
投稿者 (削除されました)  () 投稿日時 2009/11/6 22:02:11
(削除されました)
0
投稿者 @@  (社会人) 投稿日時 2009/11/6 21: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で使えるようにしてくれませんか？
0