| |
りんさん、お教え頂きありがとうございました。
りんさんにお教えいただいた後、
.SetSourceData Source:=r2, PlotBy:=xlColumns
.SeriesCollection(1).XValues = r1
に関して調べ、納得がいきました。
また、無事希望の動作をさせることができました。
ただ、勉強中、いじっているうちに、どうしても理解できないところが出てきてしまいました。
name = ActiveSheet.name
Set lWsP = ThisWorkbook.Worksheets(name)
Set lWsE = ThisWorkbook.Worksheets("hogehoge")
'////////////////グラフ作成/////////////////////////
With ActiveSheet
Set r1 = .Range("N11:N15") 'X
Set r2 = .Range("M11:M15") 'Y
End With
With r1
Rmax = .Cells(.Count).Row
End With
lWsE.Activate ←これだとエラーが起きる（lWsPならばエラーは起きない）
With ActiveSheet
'一つあけて下
With Range(.Cells(Rmax + 2, 1), .Cells(Rmax + 21, 10)) '大きさは適当
Set co = lWsE.ChartObjects.Add(.Left, .Top, .Width, .Height)
End With
End With
という問題が発生し、なぜこのような現象が起きるのか理解できません。
尚、hogehogeというシートは作ったままのまっさらなシートです。
希望の動作をさせることはできたものの、どうにも気持ちが悪いので、
もしよろしれば、なぜエラーが起きるのかお教えいただけましたら幸いです。
|
|
Yuji
- 09/4/19(日) 18:13 -
