すべてのカテゴリ

'↓↓↓↓↓Sheet1（データと同じシート）に Option Explicit Option Base 0 Public Sub 棒グラフ作成マクロ()     Dim RngPos As Range     '     If Sheet1.ChartObjects.Count = 1 Then        Sheet1.ChartObjects(1).Delete     End If     '     Set RngPos = Sheet1.Range("B5:G12")           '←配置領域     Sheet1.ChartObjects.Add RngPos.Left, RngPos.Top, 　_                                         RngPos.Width, RngPos.Height     With Sheet1.ChartObjects(Sheet1.ChartObjects.Count).Chart         .ChartType = xlColumnClustered                 '←グラフ種別         .SetSourceData Source:=Range("B2:G3")    '←データセル指定         .PlotBy = xlRows                                       '←データ配列         .HasTitle = True