tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: VB.NETでExcelを制御する方法が分かりません。
投稿日： 2004/01/11(Sun) 14:30
投稿者： marks
初めまして。
私は、C#&VB6使いで、VB.netはわからないのですが、VB6の場合、

    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets.Add
...
略
...
    Dim MyChart As ChartObject
    Dim line As String
    '表示位置・グラフの大きさを指定して
    '新しい埋め込みグラフを作成します。
    Set MyChart = xlSheet.ChartObjects.Add(10, 100, 600, 330)
    With MyChart.Chart
        '散布グラフを指定
        .ChartType = xlXYScatter
        'データ設定
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = xlSheet.Range("A2:A12")
        .SeriesCollection(1).Values = xlSheet.Range("B2:B12")

        '作業中のシートにグラフを表示
        .Location xlLocationAsObject, xlSheet.Name
        
        '近似式の係数取得
        .SeriesCollection(1).Select
        .SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=3 _
        , Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=True).Select
        line = MyChart.Chart.SeriesCollection(1).Trendlines(1).DataLabel.Text

    End With
という様に行いました。lineに近似式が入ります。あとは、splitで切り出すなりしてください。
こいった場合、Excel上で操作をマクロに保存して、そのマクロをそのままVBに移植すれば
簡単です。VBもVBAも似たようなものですし。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。