投稿日	： 2005/04/21(Thu) 21:20
投稿者	： こういち
Ｅメール	：
ＵＲＬ	：
タイトル	： グラフの範囲指定のしかたがわかりません

エクセルのグラフ範囲指定で困っています。
環境は
os winXP
ＶＢ６
エクセル２０００
です。

ＣＳＶデータを印刷用のエクセルデータに貼り付け印刷をしようとしています。
問題ですが、印刷用データのグラフの範囲指定のしかたがわかりません。
グラフはＣＳＶデータにより範囲が変わってしまいます。
ＣＳＶの方には
電流　2 3 4  5  6  7
電圧  2 2 2  2  2  2
電力  4 6 8 10 12 14
の様にデータがあります。電流の範囲が都度変わるのでそれに併せて
グラフの範囲も変えたいと思っています。

以下のように見よう見まねで書いてみたのですが・・・

    Dim xlBook(1)    As Excel.Workbook
    Dim xlSheet(1) As Excel.Worksheet

    Set xlApp = CreateObject("Excel.Application")
    Set xlApp = GetObject(, "excel.application")

    Fname = txtseiban.Text
    strmypath = txtpath.Text
    
     With xlApp
        Set xlBook(0) = xlApp.Workbooks.Open(App.Path & "\" & "印刷
用.xls")      
        Set xlBook(1) = xlApp.Workbooks.Open(strmypath & "\" & Fname &
; ".csv")    
    End With

    xlApp.DisplayAlerts = False
    xlApp.Visible = True

    AppActivate Fname & ".csv"                      
    Cells.Select                                    
    Selection.Copy                                  '
  
    AppActivate "印刷用.xls"                        
     xlApp.ActiveWorkbook.Worksheets("dataa").Select
    Cells.Select
    ActiveSheet.Paste
    xlApp.ActiveWorkbook.Worksheets("printt").Select
    
    xlApp.ActiveSheet.ChartObjects("グラフ 4").Activate　　※印刷用はグラフ４です
    xlApp.ActiveChart.ChartArea.Select
    xlApp.ActiveChart.SetSourceData Union(xlSheet.Range(Cells(10, 74), Cells(12, 74 + j)))
　　↑↑↑ここの行の書き方がわかりません・・・
　　この行の最後にあるｊは、プログラムの中で電流何個分測定したのかの回数がわかっています。

     ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate _
        :=True                                      '印刷の設定。１ページだけ印刷


    xlApp.Quit


何か良い方法は無いでしょうか・・・
また、わかりやすいプログラムにできないでしょうか？

皆様の知恵を拝借したく、よろしくお願いいたします。

★ - グラフの範囲指定のしかたがわかりません - こういち 04/21-21:20No.2988
• Re: グラフの範囲指定のしかたがわかりませ.. - 花ちゃん 04/21-22:33 No.2989
  • 解決しました！ - こういち 04/22-10:33 No.2992