|
はじめまして。きたともうします。
このたびは、グラフの設定がわからず質問させていただきます。
具体的に、行いたいこととしましては、
円グラフを新規に作成し、データ範囲を指定し、グラフを表示させるということをしたいと考えております。
しかし、項目軸ラベルに使用するデータの設定がうまくいきません。
以下にソースコードをのせますのでアドバイス願います。
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です。
よろしくお願いします。
|
|