Ｐａｇｅ 756 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼グラフの作成 つん 03/2/17(月) 14:39 ┗Re:グラフの作成 JuJu 03/2/17(月) 15:13 ┗Okay! つん 03/2/17(月) 16:24 ─────────────────────────────────────── ■題名 ： グラフの作成 ■名前 ： つん <honey@sweetparty.ne.jp> ■日付 ： 03/2/17(月) 14:39 -------------------------------------------------------------------------
| こんにちは、いつもお世話になります。 久しぶりに質問させて頂きます。よろしくお願いします。 埋込グラフを作成したいのですが、 どうも上手く行きません・・・ Range(A16:A19)の範囲に、Range(B46:B47)のデータをソースにして、小さい円グラフを書きたいと思っています。 で、こんな風にやってみてるのですが・・・・ With Worksheets("Sheet1") Set r = .Range(.Cells(16, 1), .Cells(19, 1)) ws.ChartObjects.Add _ Left:=r.Left, _ Top:=r.Top, _ Width:=r.Width, _ Height:=r.Height Set rChart = .Range(.Cells(46, 2), .Cells(47, 2)) With ActiveChart .SetSourceData Source:=rChart, PlotBy:=xlColumns .ChartType = xlPie End With End with データソースを設定するところで、「オブジェクト変数またはWithブロック変数が設定されていません」とのエラーメッセージが出ます。 簡単なミスかなあ？とも思うのですが、グラフをあまり扱ったことがなくて、ヘルプや参考書を見てもよーわかりません。 よろしくお願いします。 |
| つんさん、こんにちはぁ >データソースを設定するところで、「オブジェクト変数またはWithブロック変数が設定されていません」とのエラーメッセージが出ます。 方法は色々あるんですけど、こんな感じではいかがですか？ Set r = .Range(.Cells(16, 1), .Cells(19, 1)) Set rChart = .Range(.Cells(46, 2), .Cells(47, 2)) With .ChartObjects.Add( _ Left:=r.Left, _ Top:=r.Top, _ Width:=r.Width, _ Height:=r.Height) .Chart.SetSourceData Source:=rChart, PlotBy:=xlColumns .Chart.ChartType = xlPie End With ChartObjectsでできるインスタンスはChartではないのでこんな参照になります。 ではではぁ |
| JuJu さん、こんにちは 早速のレスありがとうございました。 上手くいきました！ >ChartObjectsでできるインスタンスはChartではないのでこんな参照になります。 グラフって、いろんなオブジェクトの集合体って感じで、何がなんだかよーわかりませんなあ(T_T) とりあえずこれで、基本的なグラフは描けて、これから体裁整えていきます。 また、つまずいたらよろしくお願いします。 しかし・・・むちゃくちゃ久しぶりに、ＶＢＡ触った・・・すっごく基本的なことも忘れて、いちいちヘルプのお世話に・・・リハビリが必要だ(T_T) |