|
▼Jaka さん:
大変失礼しました。
表の様式は
シート名;月別
項目:A1(日付:1から31まで),B1(計)C1(AA) D1(CC)
この様式でC・D列に任意の数字を入力し下記のコードを書きました。
Public Sub 月別グラフ作成()
月別.Activate
ActiveSheet.ChartObjects.Delete
' 評価値グラフ
作成グラフ 10, 370, 480, 220, 月別.Range("C1:D32")
End Sub
Public Sub 作成グラフ(左, 上, 幅, 高, myRange As Range)
'埋め込みグラフ作成
With ActiveSheet.ChartObjects.Add(左, 上, 幅, 高).Chart
'積上げ縦棒グラフ
.ChartType = xlColumnStacked
.SetSourceData myRange, PlotBy:=xlColumns
'グラフタイトルはグラフ外に表示
'凡例
.HasLegend = True
.Legend.Position = xlLegendPositionTop
'横軸ラベル
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "日付"
'横軸日付をフォントサイズを9にする
.Axes(xlCategory).TickLabels.Font.Size = 9
'縦軸ラベル:グラフ小さくなるので非表示
'棒グラフに数値を表示する
With .SeriesCollection(1)
.HasDataLabels = True
.DataLabels.Font.Size = 8
.DataLabels.Position = xlLabelPositionCenter '
’この棒グラフ部分のカラーを変更したいのです
'データ領域がカラーにならないので不採用
' .DataLabels.Interior.ColorIndex = 34
' .DataLabels.Interior.Pattern = xlSolid
End With
With .SeriesCollection(2)
.HasDataLabels = True
.DataLabels.Font.Size = 8
.DataLabels.Position = xlLabelPositionCenter '
End With
'グラフ領域カラーなし
.PlotArea.Border.Weight = xlThin
.PlotArea.Interior.ColorIndex = xlNone
End With
End Sub
上記コードで表示されるC列・D列数値の棒グラフのカラーを変更したいのです。
|
|