こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel VBAでグラフを作成したい

今、下記の ように参考書のコードを書き写し実行しましたが、実行時エラーが出ます。
Sub グラフ作成()
  With Worksheets("sheet1").ChartObjects
    .Add(230, 10, 250, 180).Chart
     .SetSourceData Range("A3").CurrentRegion
    .ChartType = xlColumnClustered
  End With
End Sub
   実行時エラー '438'
オブジェクトはこのプロパティまたはメソットをサポートしていません。
 と出ます、何が間違いなのかわかりません、私の間違っているところを教えた頂けませんか。お願いします。
  

投稿日時 - 2019-05-19 19:36:22

QNo.9618156

困ってます

質問者が選んだベストアンサー

原因を書いてなかったので補足です。

SetSourceDataはChartObjectsのメンバーではなくChartのメンバーなのに
ChartObjectsの後に指定しているので「サポートしてない」というエラーになっています。
オブジェクトブラウザでSetSourceDataを検索したらわかりますよ。
ChartTypeもChartのメンバーです。

投稿日時 - 2019-05-19 20:57:15

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

以下のようにしてください。
Sub グラフ作成()
With Worksheets("sheet1").ChartObjects.Add(230, 10, 250, 180).Chart
.SetSourceData Source:=Range("A3").CurrentRegion
.ChartType = xlColumnClustered
End With
End Sub

投稿日時 - 2019-05-19 20:24:07

お礼

早速のご回答ありがとうございます。
作成できました。
原因につきましては、説明頂きましたが、知識不足でなるほどそういうことなのか、というようには行きませんが
勉強します。

有難う御座いました。今後ともよろしくお願いいたします。

投稿日時 - 2019-05-19 21:48:25

あなたにオススメの質問