[[20180606061625]]　『vbaでの棒グラフの作成』（aya）　ページの最後に飛ぶ

『vbaでの棒グラフの作成』（aya）

下記のような表より、縦棒グラフの作成を検討しています。
しかしながら、x軸項目名と凡例項目が逆に表記される場合があり、表記を固定させたいのですがうまくいきません。
(*手動で「行と列を切り替える」を行えばいいのですが、vbaで整えることを希望します)

どのように修正すればいいのか、ご教授いただけますでしょうか。

(表)
　　　　実績　予測　過年度実績1　過年度実績2　
項目1　 oooo　 oooo　 xxxxx　　　　△△△
項目2　 oooo　 oooo　 xxxxx　　　　△△△
項目3　 oooo　 oooo　 xxxxx　　　　△△△

(グラフの仕様)
?@表としては「実績」、「予想」、「過年度実績1」、「過年度実績2」のそれぞれの縦棒グラフを作成する。
?Ay軸は数値を、x軸は項目を表記。

(考えたvba)

'範囲設定
grpAdr1 = "A" & output_first1 & ":A" & output_end1 & ","
grpAdr2 = "B" & output_first1 & ":B" & output_end1
union_grpAdr = grpAdr1 & grpAdr2

' グラフのタイトル
title = "実績"

'出力位置の指定
outRow = output_end1 + 3

'作成
With ActiveSheet.Shapes.AddChart
　.name = "実績グラフ"
　With .Chart

      .ChartType = xlColumnClustered
      .SetSourceData Source:=ActiveWorkbook.Worksheets(sheet1).Range(union_grpAdr)
      .HasTitle = True
      .ChartTitle.Text = title
      .HasAxis(xlCategory) = True
      .HasLegend = False
      .Parent.Top = Worksheets(wsAFormat).Range("A" & outRow).Top
      .Parent.Left = Worksheets(wsAFormat).Range("A" & outRow).Left
      .Parent.Height = 150
      .Parent.Width = 400
  End With
End With

＜使用アプリ：、使用 OS：Windows10 ＞

With Chart の最後にでも、.PlotBy = xlRows と1行追加してみてください。
（???） 2018/06/06(水) 10:04

ご回答ありがとうございます。
「SetSourceData Source:=～～～」の後に「PlotBy:=xlColumns」を追加したところ、x軸の項目名に項目1～3が設定されることを確認できました。
どうもありがとうございました。

（aya） 2018/06/06(水) 10:44

コメント返信：

[ 一覧(最新更新順) ]

[[20180606061625]] 『vbaでの棒グラフの作成』（aya） ページの最後に飛ぶ

[[20180606061625]]　『vbaでの棒グラフの作成』（aya）　ページの最後に飛ぶ