tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
グラフのデータ範囲指定の仕方について(VB6.0 応用編) ( No.14 )  [親スレッドへ]
日時: 2007/08/20 21:06
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[エクセル][][]                                                      *
* キーワード:データ範囲,,,,,                                                     *
***********************************************************************************

元質問:エクセルグラフの範囲指定の仕方について - まゆ  2005/08/19-17:27 No.4160

グラフのデータの範囲指定ですが、
xlBook.ActiveChart.SetSourceData Source:=xlSheet.Range("A3:AO9"), otBy:=xlRows        
 の場合は・・・
xlBook.ActiveChart.SetSourceData _
     Source:=xlSheet.Range(xlSheet.Cells(3, 1), xlSheet.Cells(9, 41)), PlotBy:=xlRows
と書くのはわかるのですが、下記のようにタイトル行が離れている場合
    xlBook.ActiveChart.SetSourceData Source:=xlSheet.Range _
                                 ("A3:AO3,A10:AO18"),PlotBy:=xlRows
 rangeやcellsをどう使えばいいのでしょうか?

-----------------------------------------------------------------------------------
Re: エクセルグラフの範囲指定の仕方につい.. - るしぇ  2005/08/22-15:22 No.4171

マクロを記録してみた限り、タイトル行の指定は別処理でできるので
何の問題もないのでは?
-----------------------------------------------------------------------------------

-----------------------------------------------------------------------------------
Re: エクセルグラフの範囲指定の仕方につい.. - YK   2005/08/22-17:26 No.4173

こんな感じで
    Dim r1  As Excel.Range
    Dim r2  As Excel.Range

    Set r1 = xlSheet.Range("A3:AO3")
    Set r2 = xlSheet.Range("A10:AO18")

    xlBook.ActiveChart.SetSourceData _
                Source:=xlBook.Application.Union(r1, r2), _
                PlotBy:=xlRows

xlBook.Application.Unionはエクセルのインスタンスが書いてないのでこのようにしました。
エクセルのインスタンスがあれば、エクセルのインスタンス.Unionで宜しいです。

-----------------------------------------------------------------------------------



 [スレッド一覧へ] [親スレッドへ]