グラフの作成

With ActiveSheet.Shapes.AddChart.Chart
    .SetSourceData Range("A1:C3")
    'グラフのオプション
End With

グラフの種類

.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(xlValue, 1) = False            '横軸の非表示
.HasAxis(xlCategory, 1) = False         '縦軸の非表示

データラベルを表示

For i = 1 To .SeriesCollection.Count
    .SeriesCollection(i).HasDataLabels = True
Next

系列名を表示

For i = 1 To .SeriesCollection.Count
    .SeriesCollection(i).HasDataLabels = True
    .SeriesCollection(i).DataLabels.ShowSeriesName = True
Next

値を表示

For i = 1 To .SeriesCollection.Count
    .SeriesCollection(i).HasDataLabels = True
    .SeriesCollection(i).DataLabels.ShowValue = True
Next

チャートエリアの縦横サイズ

.ChartArea.Height = 50
.ChartArea.Width = 100

チャートエリアの位置をセルに合わせる

.ChartArea.Top = Range("B2").Top
.ChartArea.Left = Cells("B2").Left

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2022-04-28 (木) 00:27:48 (113d)