Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35105 / 76732

←次へ　｜　前へ→


	【46830】グラフ凡例の異常表示について

ミリイ - 07/2/16(金) 20:01 -


	引用なし

	パスワード

お願いします。

表のデータをマクロボタンで折れ線グラフ化しています。
表は最大５項目（凡例５系列）まで設定できるようにしています。
しかし、グラフボタンを押すと５系列目の下に系列１と表示され
凡例が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

2 hits

▼

【46830】グラフ凡例の異常表示について ミリイ 07/2/16(金) 20:01

≪