Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8300 / 13644 ツリー ←次へ | 前へ→

【34117】グラフの設定方法 きた 06/1/26(木) 19:52 質問[未読]
【34122】Re:グラフの設定方法 うえだ 06/1/26(木) 20:49 回答[未読]

【34117】グラフの設定方法
質問  きた E-MAIL  - 06/1/26(木) 19:52 -

引用なし
パスワード
   はじめまして。きたともうします。

このたびは、グラフの設定がわからず質問させていただきます。

具体的に、行いたいこととしましては、
円グラフを新規に作成し、データ範囲を指定し、グラフを表示させるということをしたいと考えております。

しかし、項目軸ラベルに使用するデータの設定がうまくいきません。
以下にソースコードをのせますのでアドバイス願います。

Sub AddGrafh()
  
  Range("J4:O4").Select
  
  Dim NowSheetName As String
  NowSheetName = ActiveSheet.Name
  
  ActiveSheet.ChartObjects.Add(50, 200, 338, 220).Select
  ActiveChart.ChartType = xlPie
  ActiveChart.ChartWizard Source:=Range("J4:O4"), PlotBy:=xlRows

  ActiveChart.SeriesCollection(1).Name = "=""項目別支出割合"""
  ActiveChart.ChartTitle.Font.Size = 14
 
  ActiveChart.SeriesCollection(1).XValues = """=" & NowSheetName & "!$J$3:$O$3"""
  
  End Sub

上記の ActiveChart.SeriesCollection(1).XValues = """=" & NowSheetName & "!$J$3:$O$3""" という箇所の記述がおかしいのですが、なんてかいてよいかわかりません。

ちなみに、項目軸ラベルに設定したいデータは、現在のシートのJ$3:$O$3です。

よろしくお願いします。

【34122】Re:グラフの設定方法
回答  うえだ  - 06/1/26(木) 20:49 -

引用なし
パスワード
   ▼きた さん:

ActiveChart.SeriesCollection(1).XValuesに
J$3:$O$3のRangeオブジェクトを代入してみては。

試してないので間違ってたらごめんなさい。

8300 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free