Excelに貼り付けたグラフに対するデータ範囲指定の変更: どぼん!のVB道掲示板(プログラム)過去ログ

題名: Excelに貼り付けたグラフに対するデータ範囲指定の変更
著者: amedio
日時: 2003/04/07 15:18:00
ID: 913
この記事の返信元:
- （なし）
この記事への返信:
- [1025] 回答:Excelに貼り付けたグラフに対するデータ範囲指定の変更通りすがりのmaruko 2003/05/01 15:59:00
ツリーを表示

こちらの掲示板に初めて書き込みさせて頂きます。

Excelに貼り付けたグラフに対するデータ範囲指定の変更につい
て、マクロ保存をした結果下記のようなコードになるところまで
わかっております。

（例）
ActiveSheet.Shapes("Chart 50").Select
ActiveSheet.ChartObjects("グラフ 50").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A63:F64,A70:F70"),By:=xlRows

これをVBで上手く組み込まなければならないのですが思うようにいきません。
どなたかご教授頂ければ助かります。

題名: 回答:Excelに貼り付けたグラフに対するデータ範囲指定の変更
著者: 通りすがりのmaruko
日時: 2003/05/01 15:59:00
ID: 1025
この記事の返信元:
- [913] Excelに貼り付けたグラフに対するデータ範囲指定の変更 amedio 2003/04/07 15:18:00
この記事への返信:
- （なし）
ツリーを表示

>こちらの掲示板に初めて書き込みさせて頂きます。
>
>Excelに貼り付けたグラフに対するデータ範囲指定の変更につい
>て、マクロ保存をした結果下記のようなコードになるところまで
>わかっております。
>
>（例）
>ActiveSheet.Shapes("Chart 50").Select
>ActiveSheet.ChartObjects("グラフ 50").Activate
>ActiveChart.PlotArea.Select
>ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A63:F64,A70:F70"),By:=xlRows
>
>これをVBで上手く組み込まなければならないのですが思うようにいきません。
>どなたかご教授頂ければ助かります。

参考になれば・・・

Dim Obj_Sheet1 AS Object 'Excelシート（グラフ）
Dim Obj_Sheet2 As Object 'Excelシート（データ）

.
.
.

Obj_Sheet1.ChartObjects("グラフ 50").Chart.SetSourceData _
Obj_Sheet2.Range("A63:F64,A70:F70")

いかがでしょう？