2016-05-20 31 views
0

VBA Excel 2007で軸ラベルを設定しようとしています。Excelの垂直軸ラベルを設定できません。グラフVBA

 Charts.Add 
     ActiveChart.ChartType = xlColumnClustered 
     ActiveChart.SetSourceData Source:=Sheets("Data").Range("A" & i) 
     ActiveChart.Axes(xlValue, xlPrimary).HasTitle = True 
     ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated) 
     ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Hours" 
     ActiveChart.SetElement (msoElementChartTitleAboveChart) 
     ActiveChart.ChartTitle.Text = ChartName 
     ActiveChart.Name = ChartName 

私は 'characters'要素なしで試しましたが、それでも動作しません。私はまた、フォーマットを整数に設定する方法も不思議です。

+0

ソースは1つのセルのみで構成されています。 – ja72

+1

マクロレコーダーをオンにしてタイトルを追加しようとしましたか?結果として得られるコードが役に立ちます。 –

+0

@ ja72、はいこれは単なるマクロ全体の抽出物なので、作成されたチャートを取得するだけです。後でさらに一連のデータを追加します。 – Brian

答えて

0

私は偶然に答えを見つけました。 「HasTitle」が設定され、その後、軸のラベルが登場し、私は値を設定することができている前

ActiveSheet.Select 

:私は、次の行を挿入する必要がありました。

私はActiveSheetで偶然に入力したものだけを発見しました!

関連する問題