本文へスキップ
  1. トップページ>
  2. VBA>
  3. VBA応用、グラフ操作(縦棒)

VBAvba

VBA関係の情報を色々を記載して行きます。


VBA応用、グラフ操作(縦棒)

(項目1)
 ・エクセルでは、色々なグラフを作成する事が可能です。
 ・本ページでは、グラフ操作(縦棒)を説明します。
 ・以下、Excel2016で説明して行きます。

(項目2)
 ・代表的なグラフ操作(縦棒)は、以下の通りです。
  グラフ操作(縦棒)を挿入 : ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
                 ActiveSheet.Shapes.AddChart2(297, xlColumnStacked).Select
                 ActiveSheet.Shapes.AddChart2(297, xlColumnStacked100).Select
                 ActiveSheet.Shapes.AddChart2(286, xl3DColumnClustered).Select
                 ActiveSheet.Shapes.AddChart2(286, xl3DColumnStacked).Select
                 ActiveSheet.Shapes.AddChart2(286, xl3DColumnStacked100).Select
                 ActiveSheet.Shapes.AddChart2(286, xl3DColumn).Select

(項目3)
 ・VBAコードは、以下の記述となります。

  Sub test()

    Range("B4:H7").Select
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

    Range("B4:H7").Select
    ActiveSheet.Shapes.AddChart2(297, xlColumnStacked).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

    Range("B4:H7").Select
    ActiveSheet.Shapes.AddChart2(297, xlColumnStacked100).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

    Range("B4:H7").Select
    ActiveSheet.Shapes.AddChart2(286, xl3DColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

    Range("B4:H7").Select
    ActiveSheet.Shapes.AddChart2(286, xl3DColumnStacked).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

    Range("B4:H7").Select
    ActiveSheet.Shapes.AddChart2(286, xl3DColumnStacked100).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

    Range("B4:H7").Select
    ActiveSheet.Shapes.AddChart2(286, xl3DColumn).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$B$4:$H$7")

  End Sub

(項目4)
 ・以上で、VBA応用、グラフ操作(縦棒)は終了です。


contents

エクセル将棋館

日本国

地方都市

e−mail(e−mail


スポンサード リンク