Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Excel 2010)
グラフへの参照範囲設定
投稿日時: 17/12/18 17:27:33
投稿者: olive23804

いつもお世話になっております。
今回もよろしくお願い致します。
 
グラフに参照範囲を設定させたいのですが、キー記録を元にいろいろ試してみましたができません。
何が問題なのでしょうか?
 
<やりたいこと>
Data01シートのRange(Cells(cintDataR, cintDataC), (cintDataRe, cintDataC)) を、グラフ:strPalate(intI)のSetSourceDataに設定したい。
(Data01は可変になる可能性大)
 
<キー記録>
ActiveChart.SetSourceData Source:=Sheets("Data01").Range("D5:F18")
 
<キー記録を参考に作ってみたVBA>
ChartObjects(strPalate(intI)).SetSourceData Source:=Sheets("Data01").Range(Cells(cintDataR, cintDataC), (cintDataRe, cintDataC))
 

回答
投稿日時: 17/12/18 19:03:56
投稿者: 細雪

見てパッと気にかかるのは
 

olive23804 さんの引用:

<キー記録を参考に作ってみたVBA>
ChartObjects(strPalate(intI)).SetSourceData Source:=Sheets("Data01").Range(Cells(cintDataR, cintDataC), (cintDataRe, cintDataC))

 
 
ActiveSheet.ChartObjects(strPalate(intI)).Chart.SetSourceData Source:=Sheets("Data01").Range(Sheets("Data01").Cells(cintDataR, cintDataC), Sheets("Data01").Cells(cintDataRe, cintDataC))
の3か所の漏れ(赤文字)ですかね。
変数のどうのこうの、グラフがあるシートについてはご自身の環境に合わせてくださいね。
 
青文字は・・グラフのデータソースがあるシートがアクティブなのなら問題ないのですが、
ちょっと気になったのでついでに、です。
 
 

投稿日時: 17/12/19 10:33:37
投稿者: olive23804

細雪さん
 
ありがとうございます。
まさに、赤文字と青文字部分ではまっていました。
 
何が原因か分からず(原因が1つだと思っていたので)、大変助かりました。
細かいくらいシート名を指定しておけば、問題はかなり回避されると分かりました。
 
どうもありがとうございます。