|
▼Jaka さん:
>こんにちは。
>ここが参考になりませんか?
>
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=8876;id=excel
Jaka様
ご返信ありがとうございます。
上記スレも参考にさせていただいたのですが、
↓のところで、色指定をしている というのはわかるのですが、
With ActiveChart.SeriesCollection(1).Points(i).Interior
If Range("A" & i).Value >= 30 Then
.ColorIndex = 3
私が今編集している以下マクロのどの部分に指定すれば良いのか、ちょっとわからないのです。いろいろやってはいるのですが、いつもエラーになります(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
'凡例指定
.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
|
|