|
お願いします。
表のデータをマクロボタンで折れ線グラフ化しています。
表は最大5項目(凡例5系列)まで設定できるようにしています。
しかし、グラフボタンを押すと5系列目の下に系列1と表示され
凡例が6系列になります。グラフ自体も表示が異常です。
何が悪いのでしょうか
アドバイスをお願い致します
With .Range("A2:L16")
Lp = .Left + 0
Tp = .Top + 5
Wp = .Width - 10
Hp = .Height - 10
End With
Set MyCh = .ChartObjects.Add(Lp, Tp, Wp, Hp)
MyCh.Chart.ChartType = xlLine
Set r = .Range("o36", .Range("o36").End(xlToRight))
For i = 37 To 41
j = j + 1
MyCh.Chart.SeriesCollection.NewSeries _
.Formula = "=SERIES(" & .Name & "!$N$" & i & "," & .Name & "!" & r.Address & "," & _
.Name & "!" & r.Offset(j).Address & "," & j & ")"
Next i
MyCh.Chart.HasTitle = True
MyCh.Chart.ChartTitle.Text = Range("C35").Value
If Range("C35") <> "" Then
With MyCh.Chart.ChartTitle
.Font.Size = 12
'.Border.ColorIndex = 5
End With
End If
With MyCh.Chart.Axes(xlCategory)
.HasTitle = True
.AxisTitle.Text = "日 付"
.AxisTitle.Font.Size = 11
.TickLabels.NumberFormatLocal = "m/d"
.TickLabels.Alignment = xlCenter
.TickLabels.Offset = 0
.TickLabels.Orientation = xlHorizontal
End With
With MyCh.Chart.Axes(xlValue)
.HasTitle = True
.AxisTitle.Text = Range("G37").Value
.AxisTitle.Font.Size = 11
.AxisTitle.HorizontalAlignment = xlCenter
.AxisTitle.VerticalAlignment = xlCenter
.AxisTitle.Orientation = 0
End With
With MyCh.Chart
.HasLegend = True
.Legend.Font.Size = 10
End With
Set MyCh = Nothing
End With
|
|