excel:vba-addchart
グラフを作成するVBA
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
スポンサーリンク
excel/vba-addchart.txt · 最終更新: 2024/07/26 10:46 by shimehitsu14