Excel VBA質問箱 IV

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

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


6167 / 13646 ツリー ←次へ | 前へ→

【46830】グラフ凡例の異常表示について ミリイ 07/2/16(金) 20:01 質問[未読]
【46831】Re:グラフ凡例の異常表示について りん 07/2/16(金) 21:15 発言[未読]
【46833】Re:グラフ凡例の異常表示について ミリイ 07/2/18(日) 9:42 お礼[未読]

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

引用なし
パスワード
   お願いします。

表のデータをマクロボタンで折れ線グラフ化しています。
表は最大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

【46831】Re:グラフ凡例の異常表示について
発言  りん E-MAIL  - 07/2/16(金) 21:15 -

引用なし
パスワード
   ミリイ さん、こんばんわ。

>表のデータをマクロボタンで折れ線グラフ化しています。
>表は最大5項目(凡例5系列)まで設定できるようにしています。
>しかし、グラフボタンを押すと5系列目の下に系列1と表示され
>凡例が6系列になります。グラフ自体も表示が異常です。
>何が悪いのでしょうか
>アドバイスをお願い致します
>
Sub Test()
With ActiveSheet
>
>   With .Range("A2:L16")
中略
>   
>  Set MyCh = Nothing
>   End With
End Sub
というコードで試しましたが、線は5本で凡例の系列数も5つでした。
(WinXP & XLXP)
・最初からずっと変ですか?
・途中でおかしくなったのだとしたら、PC再起動でもなおりませんか?

【46833】Re:グラフ凡例の異常表示について
お礼  ミリイ  - 07/2/18(日) 9:42 -

引用なし
パスワード
   [本文なし]

6167 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free