【VBA】グラフの作成と操作をマスターする【実務で使えるレベルになります】

Sub TEST1()
    
    'グラフの名前を取得（グラフを選択する場合）
    Debug.Print ActiveChart.Parent.Name
    
End Sub

Sub TEST2()
    
    'グラフの名前を取得（グラフを指定する場合）
    Debug.Print ActiveSheet.ChartObjects(1).Name
    
End Sub

Sub TEST3()
    
    'グラフを削除（選択の場合）
    ActiveChart.Parent.Delete
    
End Sub

Sub TEST4()
    
    'グラフを削除（指定する場合）
    ActiveSheet.ChartObjects(1).Delete
    
End Sub

Sub TEST5()
    
    'グラフを初期化（選択する場合）
    ActiveChart.ChartArea.ClearContents
    
End Sub

Sub TEST6()
    
    'グラフを初期化（指定する場合）
    ActiveSheet.ChartObjects(1).Chart.ChartArea.ClearContents
    
End Sub

Sub TEST7()
    
    Range("A1").Select '元データを選択
    ActiveSheet.Shapes.AddChart2.Select 'グラフを挿入
    ActiveChart.ChartType = xlLine '「折れ線」
    
End Sub

Sub TEST8()

    '散布図を作成
    ActiveSheet.Shapes.AddChart2.Select 'グラフを挿入
    ActiveChart.ChartType = xlXYScatter '散布図に変更
    ActiveChart.SetSourceData Range("A1").CurrentRegion '参照範囲を設定
    
End Sub

Sub TEST9()
    
    '棒グラフを作成
    ActiveSheet.Range("A1").Select '元データを選択
    ActiveSheet.Shapes.AddChart2.Select 'グラフを作成
    ActiveChart.ChartType = xlColumnClustered '集合縦棒
    
End Sub

Sub TEST10()
    
    'グラフ種類を変更
    ActiveSheet.ChartObjects(1).Chart.ChartType = xlColumnClustered  '集合縦棒
    
End Sub

Sub TEST11()
    
    '参照範囲を設定
    ActiveSheet.ChartObjects(1).Chart.SetSourceData Range("A1:C3")
    
    '「横方向のデータ」を系列にする
    ActiveSheet.ChartObjects(1).Chart.PlotBy = xlColumns
    
End Sub

Sub TEST12()
    
    With ActiveSheet.ChartObjects(1)
        .Left = Range("B7").Left '左の位置
        .Top = Range("B7").Top '上の位置
    End With
    
End Sub

Sub TEST13()
    
    With ActiveSheet.ChartObjects(1)
        .Width = Range("B7:G17").Width '幅
        .Height = Range("B7:G17").Height '高さ
    End With
    
End Sub

Sub TEST14()
    
    With ActiveSheet.ChartObjects(1).Chart
        .HasTitle = True 'タイトルを表示
    End With
    
End Sub

Sub TEST15()
    
    'タイトル
    With ActiveSheet.ChartObjects(1).Chart.ChartTitle
        .Text = "売上一覧"
        .Font.Color = RGB(255, 0, 0) '赤色
        .Font.Size = 20 '文字サイズ
    End With
    
End Sub

Sub TEST16()
    
    With ActiveSheet.ChartObjects(1).Chart
        .HasLegend = True '凡例を表示
    End With
    
End Sub

Sub TEST17()
    
    '凡例
    With ActiveSheet.ChartObjects(1).Chart.Legend
        .IncludeInLayout = True 'グラフと重ねない
        .Position = xlBottom '下に表示
    End With
    
End Sub

'軸の表示/非表示
ActiveSheet.ChartObjects(1).Chart.HasAxis(xlValue, 1) = True '「縦軸」の「第1軸」を表示（非表示はFalse）
ActiveSheet.ChartObjects(1).Chart.HasAxis(xlValue, 2) = True '「縦軸」の「第2軸」の表示（非表示はFalse）
ActiveSheet.ChartObjects(1).Chart.HasAxis(xlCategory, 1) = True '「横軸」の「第1軸」の表示 (非表示はFalse)
ActiveSheet.ChartObjects(1).Chart.HasAxis(xlCategory, 2) = True '「横軸」の「第2軸」の表示（非表示はFalse）

Sub TEST18()
    
    '縦軸の第1軸を表示
    ActiveSheet.ChartObjects(1).Chart.HasAxis(xlValue, 1) = True
        
End Sub

Sub TEST19()
    
    '縦軸の第2軸を表示
    ActiveSheet.ChartObjects(1).Chart.HasAxis(xlValue, 2) = True
        
End Sub

Sub TEST20()
    
    '横軸の第1軸を表示
    ActiveSheet.ChartObjects(1).Chart.HasAxis(xlCategory, 1) = True
        
End Sub

Sub TEST21()
    
    '横軸の第2軸を表示
    ActiveSheet.ChartObjects(1).Chart.HasAxis(xlCategory, 2) = True
        
End Sub

Sub TEST22()
    
    '縦軸の第1軸
    With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, 1)
        .MinimumScale = 500 '「最小」の目盛り
        .MaximumScale = 1200 '「最大」の目盛り
    End With
    
End Sub

Sub TEST23()
    
    '縦軸の第1軸
    With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, 1)
        .MinimumScaleIsAuto = True '「最小」の目盛りを「自動」
        .MaximumScaleIsAuto = True '「最大」の目盛りを「自動」
    End With
    
End Sub

'軸ラベルを表示/非表示
ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, 1).HasTitle = True '縦軸の第1軸ラベルを表示（非表示はFalse）
ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, 2).HasTitle = True '縦軸の第2軸ラベルを表示（非表示はFalse）
ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory, 1).HasTitle = True '横軸の第1軸ラベルを表示（非表示はFalse）
ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory, 2).HasTitle = True '横軸の第2軸ラベルを表示（非表示はFalse）

Sub TEST24()
    
    '縦軸の第1軸
    With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, 1)
        .HasTitle = True '軸ラベルを表示
    End With
        
End Sub

Sub TEST25()
    
    '縦軸の第2軸
    With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, 2)
        .HasTitle = True '軸ラベルを表示
    End With
        
End Sub

Sub TEST26()
    
    '横軸の第1軸
    With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory, 1)
        .HasTitle = True '軸ラベルを表示
    End With
        
End Sub

Sub TEST27()
    
    '横軸の第2軸
    With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory, 2)
        .HasTitle = True '軸ラベルを表示
    End With
        
End Sub

Sub TEST28()
    
    '縦軸の第1軸のラベル
    With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, 1).AxisTitle
        .Text = "売上"
    End With
        
End Sub

Sub TEST29()
    
    '縦軸の第1軸のラベル
    With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue, 1).AxisTitle
        .Font.Color = RGB(255, 0, 0) '赤色
        .Font.Size = 15 'サイズ
    End With
        
End Sub

Sub TEST30()
    
    '「1つ目」のグラフの「1つ目」の系列の「名前」
    Debug.Print ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Name
    
End Sub

Sub TEST31()
    
    '「1つ目」のグラフの系列をループ
    For Each a In ActiveSheet.ChartObjects(1).Chart.SeriesCollection
        Debug.Print a.Name '名前を取得
    Next
        
End Sub

'系列にするデータを指定
ActiveSheet.ChartObjects(1).Chart.PlotBy = 系列にするデータ(xlRowsもしくはxlColumns)

Sub TEST32()
    
    '「行のデータ」を系列にする
    ActiveSheet.ChartObjects(1).Chart.PlotBy = xlRows
    
End Sub

Sub TEST33()
    
    '「列のデータ」を系列にする
    ActiveSheet.ChartObjects(1).Chart.PlotBy = xlColumns
    
End Sub

Sub TEST34()
        
    '系列を削除
    ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2).Delete
    
End Sub

Sub TEST35()
        
    '系列を非表示
    ActiveSheet.ChartObjects(1).Chart.FullSeriesCollection(2).IsFiltered = True
    
End Sub

Sub TEST36()
        
    '系列を表示
    ActiveSheet.ChartObjects(1).Chart.FullSeriesCollection(2).IsFiltered = False
    
End Sub

Sub TEST37()
    
    '新しい系列追加
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection.NewSeries
        .Name = Range("E1") '系列名
        .Values = Range("E2:E4") 'データ範囲
    End With

End Sub

Sub TEST38()
    
    '「4つ目」の系列
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(4)
        .AxisGroup = 2  '第2軸にする
    End With
        
End Sub

Sub TEST39()
    
    '「4つ目」の系列
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(4)
        .ChartType = xlLine '折れ線に変更する
    End With
        
End Sub

Sub TEST40()
    
    '1つ目の系列の「線」
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Format.Line
        .Visible = msoTrue '塗りつぶしあり
        .ForeColor.RGB = RGB(0, 255, 0) '緑色
        .Transparency = 0.5 '透過率
    End With
    
End Sub

Sub TEST41()
    
    '1つ目の系列の「線」
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Format.Line
        .Weight = 5 '太さ（マーカーの枠線の太さも変わる）
    End With
    
End Sub

Sub TEST42()
    
    '1つ目の系列の「線」
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Format.Line
        .DashStyle = msoLineSysDot '点線（丸）
    End With
    
End Sub

Sub TEST43()
    
    '1つ目の系列
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        .MarkerStyle = 1 'マーカーを表示（種類：1～9）
    End With
    
End Sub

Sub TEST44()
    
    '1つ目の系列
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        .MarkerSize = 8 'マーカーのサイズ
    End With
    
End Sub

Sub TEST45()

    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        'マーカーの背景色
        .MarkerBackgroundColor = RGB(255, 0, 0) '赤
    End With
        
End Sub

Sub TEST46()

    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        'マーカーの枠線色
        .MarkerForegroundColor = RGB(255, 0, 0) '赤
    End With
        
End Sub

Sub TEST47()
    
    '1つ目の系列の塗りつぶし
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Format.Fill
        .ForeColor.RGB = RGB(0, 255, 0) '緑
    End With
        
End Sub

Sub TEST48()
    
    '1つ目の系列のデータラベルを表示
    ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).HasDataLabels = True
    
End Sub

Sub TEST49()
    
    '1つ目の系列
    With ActiveSheet.ChartObjects(1).Chart
        '系列をループ
        For i = 1 To .SeriesCollection.Count
            .SeriesCollection(i).HasDataLabels = True 'データラベルを表示
        Next
    End With
    
End Sub

Sub TEST50()
    
    '棒グラフの場合
    '1つ目の系列のデータラベル
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).DataLabels
        .Position = xlLabelPositionInsideEnd '内側上
    End With
    
End Sub

Sub TEST51()
    
    '折れ線グラフと散布図の場合
    '1つ目の系列のデータラベル
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).DataLabels
        .Position = xlLabelPositionCenter '中央
    End With
    
End Sub

Sub TEST52()
    
    'グラフをコピー
    ActiveSheet.ChartObjects(1).Copy
    
    ActiveSheet.Range("B14").Select 'セルを選択
    ActiveSheet.Paste 'グラフを貼り付け
    
End Sub

Sub TEST53()
    
    'グラフをコピー
    With Worksheets("Sheet1").ChartObjects(1)
        a = .Left '左
        b = .Top '上
        .Copy
    End With
    
    'グラフを貼り付け
    With Worksheets("Sheet2")
        .Paste '貼り付け
        .ChartObjects(.ChartObjects.Count).Left = a '左の位置
        .ChartObjects(.ChartObjects.Count).Top = b '上の位置
    End With
    
End Sub

Sub TEST54()
    
    '「jpg」で出力する
    ActiveSheet.ChartObjects(1).Chart.Export ThisWorkbook.Path & "\TEST.jpg"
    
End Sub