|
申し訳ありません。このようなこと聞かせてもらって良いのかわからないのですが、
宜しければ教えていただけませんでしょうか?
以下のようなグラフ生成マクロの凡例?というかグラフの色を変えたいと頼まれました。
素人なりに考えていろいろやってみたのですが、解決できません。
取得データとして凡例を増やせば勝手にExcel?が着色してくれるのですが、その色が見にくいのでなんとかしたいのです。
グラフデータ範囲を取得しているところで、色の指定ができるのかなと思うのですが
どうも手法がわかりません(T-T)
素人質問で気分を悪くされた方がいらっしゃいましたら申し訳ありません。
'グラフデータ範囲
With .SeriesCollection(1)
.XValues = Worksheets(WorkbookName).Range(dat_range(0)) '年齢
.Values = Worksheets(WorkbookName).Range(dat_range(loopcount))
.Name = Worksheets(WorkbookName).Range(Gtitle(gcount)).Value
End With
If gcount = 1 Then
.SeriesCollection.Add Source:= _
Worksheets(WorkbookName).Range(dat_range(2))
.SeriesCollection.Add Source:= _
Worksheets(WorkbookName).Range(dat_range(3))
'タイトル設定
With .ChartTitle
.Characters.Text = Worksheets(WorkbookName).Range("A1")"
.AutoScaleFont = True
.Font.Size = 14
End With
'X軸設定
With .Axes(xlCategory, xlPrimary)
.HasTitle = True
.AxisTitle.Characters.Text = Worksheets(WorkbookName).Range("A4")
End With
With .Axes(xlCategory)
.TickLabelSpacing = 5
.TickMarkSpacing = 5
With .TickLabels
.Orientation = xlHorizontal
.Font.Size = 9
End With
.AxisBetweenCategories = False
End With
'Y軸設定
With .Axes(xlValue, xlPrimary)
.HasTitle = True
.AxisTitle.Characters.Text = "人数"
End With
With .Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScale = GMScale(gcount)
.MinorUnitIsAuto = True
.MajorUnit = 5
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.AxisTitle.Orientation = xlVertical
.HasMajorGridlines = True
With .TickLabels
.Font.Size = 9
End With
End With
End With
|
|