With ActiveSheet.Shapes.AddChart.Chart
    .SetSourceData Range("A1:D4")
    'グラフのオプション
    .ChartType = xlBarStacked100                'グラフの種類
    .ChartArea.Format.Line.Visible = msoFalse   'チャートエリアの枠線を非表示
    .ChartArea.Format.Fill.Visible = False      'チャートエリアの背景色を透明にする
    .PlotArea.Format.Fill.Visible = False       'プロットエリアの背景色を透明にする
    .PlotBy = xlColumns                         '行列の入れ替え
    .HasLegend = False                          '凡例を非表示
    .Axes(xlValue).HasMajorGridlines = False    '目盛線を非表示
    .HasAxis(xlCategory, 1) = False             '縦軸の非表示
    .HasAxis(xlValue, 1) = False                '横軸の非表示
    .ChartArea.Height = 50                      'チャートエリアの縦サイズ
    .ChartArea.Width = 100                      'チャートエリアの横サイズ
    .ChartArea.Top = Range("F5").Top            'チャートエリアの縦位置をセルに合わせる
    .ChartArea.Left = Range("F5").Left          'チャートエリアの横位置をセルに合わせる
 
    'データエリアを非表示
    For i = 1 To .SeriesCollection.Count
        .SeriesCollection(i).HasDataLabels = True
    Next i
 
    '系列名を非表示
    For i = 1 To .SeriesCollection.Count
        .SeriesCollection(i).HasDataLabels = True
        .SeriesCollection(i).DataLabels.ShowSeriesName = True
    Next i
 
    '値を表示
    For i = 1 To .SeriesCollection.Count
        .SeriesCollection(i).HasDataLabels = True
        .SeriesCollection(i).DataLabels.ShowValue = True
    Next i
End With