VBレスキュー(花ちゃん) - 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で宜しいです。

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