いつもお世話になってます。。 昨日の朝からずっと悩んでいます。どなたかご存知の方、いらっしゃいましたらご教授下さい！！m(__)m Set Selection = xlsSheet.Range("B3:D"+c) '1-cまでの矩形範囲 Charts.Add ActiveChart.ChartType = 1 'xlLineMarkers=1 ActiveChart.SetSourceData _ Source(xlsSheet.Range("B3:D25"), 2) ActiveChart.SeriesCollection(1).Name = "=""送信""" ActiveChart.SeriesCollection(2).Name = "=""受信""" ActiveChart.Location Where=1 'xlLocationAsNewSheet=1 With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "送受信数の変化" .Axes(1,1).HasTitle = True 'xlCategory=1, xlPrimary=1 .Axes(1,1).AxisTitle.Characters.Text = "時刻" 'xlCategory=1, xlPrimary=1 .Axes(2,1).HasTitle = True 'xlValue=2, xlPrimary=1 .Axes(2,1).AxisTitle.Characters.Text = "メール数" 'xlValue=2, xlPrimary=1 End With どこでエラーが出るかというと。。。 ActiveChart.SetSourceData Source(xlsSheet.Range("B3:D25"), 2) の個所でエラーが出ます。SetSourceData Sourceメソッドの構文は以下の通りです。 expression.SetSourceData(Source, PlotBy) コンパイル時に、Sourceに(カッコ)の参照が正しくありません：SOURCE と表示されます。(TT)PlotBy= には xlColumns(=2) を指定しています。本当に困っています。どなたかご教授下さい。どうかよろしくお願いいたします。m(__)m