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

締切り済みの質問

ExcelVBAマクロについて確認させてください。

ExcelVBAマクロについて確認させてください。

添付ファイルのような形式のデータがあり、このデータを使い、積み上げ縦棒のグラフを作成したいです。
次のような条件で作成する方法をご教授いただければと思います。

・AからFまでの文字は横軸ラベルにしてAAからCCまでのデータは凡例に表示する。(XX~ZZは表示しない)

・サイズは幅600、高さ400

・位置は左から10、上から500の位置

・プログラムの最初に既存のグラフをクリア

投稿日時 - 2016-10-18 18:52:19

QNo.9244452

困ってます

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

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

回答(1)

ANo.1

埋め込みグラフで良いんですよね?
手抜き版ですが参考までに……。

Sub Sample()
  With ActiveSheet
    For i = .ChartObjects.Count To 1 Step -1
      .ChartObjects(i).Delete
    Next i
    .Shapes.AddChart(xlColumnStacked).Select
  End With
  
  With ActiveChart
    .SetSourceData Source:=Range("Sheet1!B2:E9")
    .SeriesCollection(1).Name = "=Sheet1!C2"
    .SeriesCollection(2).Name = "=Sheet1!D2"
    .SeriesCollection(3).Name = "=Sheet1!E2"
    .ChartArea.Left = 10
    .ChartArea.Top = 500
    .ChartArea.Width = 600
    .ChartArea.Height = 400
  End With
End Sub

投稿日時 - 2016-10-18 20:24:33

あなたにオススメの質問