Excel chartの系列の追加

前へ 次へ
このQ&Aのポイント
  • Excelのグラフに系列を追加する際に例外エラーが発生しています。
  • 型の不一致というエラーメッセージが表示され、キャストや型の調査をしても解決できません。
  • 一応グラフには反映されているため、try-catch文を使って例外をスルーすることで一応解決していますが、これは望ましくない解決方法です。
回答を見る
  • ベストアンサー

Excel chartの系列の追加

エクセルのグラフの系列を追加したいのですが，どうしても例外エラーが発生します． 型の不一致と出るので，型を調べていろいろキャストしたりやってみてもどうやっても例外がでてしまいます． 処理はなされているようで，グラフにはちゃんと反映はされるので，その部分をtry-catch文でスルーさせると系列も追加されていて，やりたいことはできて正常終了するのですが，このやり方は明らかに良くないと思うので，是非解決させたいです． 型宣言を省いたcodeは↓のようにしてます charts=(Excel.ChartObjects)oSheet.ChartObjects(Type.Missing); chartObj=charts.Add(100, 100, 700, 400); chart=chartObj.Chart; chart.ChartType=Excel.XlChartType.xlXYScatterLines; chartRange1=oSheet.get_Range("B2","B50"); chart.SetSourceData(chartRange1,Excel.XlRowCol.xlColumns); seriesCollection=(Excel.SeriesCollection)chart.SeriesCollection(Type.Missing); chartRange2=oSheet.get_Range("A2","A50"); seriesCollection.Item(1).XValues=chartRange2; chartRange3=oSheet.get_Range("C2","C5"); chartRange4=oSheet.get_Range("A2","A5"); /*try { */ seriesCollection.Add(chartRange3,Excel.XlRowCol.xlColumns,0,0,1).XValues=chartRange4;　//ここで下の例外が発生します /*} catch {} */ 【 'System.InvalidCastException' のハンドルされていない例外が mscorlib.dll で発生しました。 追加情報 : OleAut が型の不一致をレポートしました。 】 となります． コメント化してるtry-catch部分をコメントから外して処理させると無事にやりたいことが実行されてます． この例外エラーはどういう意味なのでしょうか? よろしくお願いします．

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

環境やバージョンは明記したほうがいいですよ(^^;) １点だけ。『やりたいことはできて正常終了する』とのことですが、XValues（質問文ではchartRange4）はチャートに反映されていますか？ というのも... XP(SP2)/VC#2005Express/Excel2000で試してみました（以下の記述はすべてこの環境での話です）が、やはりInvalidCastExceptionが発生し、どうやっても消せませんでした(^^;)。ただし、新規系列は追加されていましたが、XValuesは反映されていませんでした。 で、Excel/VBAで同様のコードを書いて試してみたところ、次の記述は実行時エラー424「オブジェクトが必要です」になります。新規系列は追加されており、chartRange4は反映されていない、C#の時とまったく同じ結果になります。 　seriesCollection1.Add(chartRange3).XValues = chartRange4 しかし、次の記述は正常に実行されます。 　seriesCollection1.Add chartRange3 　seriesCollection1.Item(2).XValues = chartRange4 オブジェクトブラウザを見るとSeriesCollectionのAddはSeriesを返すことになっていますが、この結果を見ると、どうも返していないように思われます（Excel(TypeLib)のバグ）。Add自体は成功するが、返値（Seriesオブジェクト）がないので".Xvalues"が実行できず、値の設定ができないというわけです。あくまでも想像ですけど。 残念ながらC#で問題のコードをVBAのように分割しても、依然としてAddでInvalidCastExceptionが発生してしまいます。これも想像になりますが、C#は共通ランタイムの上で動作しており、COM（OLE）とはマーシャリングと呼ばれるメカニズムを介してデータをやり取りしているようですから、ユーザプログラムが返値を使用していなくても、共通ランタイムの中で型変換した上でユーザプログラムに返しているのかもしれません。Addの返値（nullとか??）をSeriesにキャストしようとして「型の不一致」を検出したのではないかなと思います。 想像ばっかりで間違っているかもしれませんが… （余談ですが、上記のような次第で、私ならAddよりNewSeriesを使います。） （さらに余談ですが、この件は GotDotNet Japan 掲示板( http://www.gdncom.jp/general/bbs/ )や Visual Studio User Group( http://vsug.jp/ )のフォーラムなどの方が的確な回答を得られるような気がします）

uni12345
質問者

お礼

たいへん詳しい解説をしていただきありがとうございます．納得ができました． 私も書き込みした後いろいろとやってみたところ，確かに.XValues = chartRange4　の部分は反映されておりませんでした． この部分を消して実行したところご指摘のようにseriesCollection1.Add(chartRange3)は反映されますが，やはり例外エラーが出ます． FlossenEngelさんのおっしゃるとおりNewSeriesというものがあることがわかり，こちらを使うことが賢明であると判断しました．バグであってくれると自分の中でも納得ができます． また，GotDotNet Japan 掲示板や Visual Studio User Groupのフォーラムというものも今後参考にさせていただきます． ありがとうございました．

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • C#でのExcel操作について．(Rangeオブジェクトへの複数範囲設定)

    C#でExcelのグラフを作成させるプログラムを書いるのですが，Rangeオブジェクトへの離れたセルの複数範囲を指定したいのですが，いろいろ調べてみましたがどうしても解決できません． 調べた限りではVBではできるようですが，C#ではできないのでしょうか? Excel.ChartObjects　chartObjects =(Excel.ChartObjects)oSheet.ChartObjects(Type.Missing); Excel.ChartObject　chartObj = chartObjects.Add(100, 100, 700, 400); Excel.Chart chart = chartObj.Chart; Excel.Range chartRange = oSheet.get_Range("B1","B3"); /*↑の部分で("B1:B3,B5:B8,C5")のようなことをしたいです．RangeにAddメソッドのようなものがあればと思っているのですが無いみたいなので‥‥*/ chart.SetSourceData(chartRange,Excel.XlRowCol.xlColumns); Excel.SeriesCollection seriesCollection=(Excel.SeriesCollection)chart.SeriesCollection(Type.Missing); よろしくお願いします．

  • [VBA Excel] ２系列の散布図を書いてみるとおかしくなります・・・

    Excel 2007とVBAで数値解析をしています。計算結果のグラフを表示するための準備段階として、次のようなプログラムを組んで、２系列の散布図を書いて見ました。 Option Explicit Sub makechart() 　　Dim chart1 As ChartObject, wsh As Worksheet 　　Set wsh = Sheet1 　　Set chart1 = wsh.ChartObjects.Add( _ 　　10, 20, 250, 200) 　　With chart1.Chart 　　　.ChartType = xlLineStacked 　　　.SeriesCollection.NewSeries 　　　.SeriesCollection(1).XValues = _ 　　　　wsh.Range("A1:A5") 　　　.SeriesCollection(1).Values = _ 　　　　wsh.Range("B1:B5") 　　End With 　　With chart1.Chart 　　　.SeriesCollection.NewSeries 　　　.SeriesCollection(2).XValues = _ 　　　　wsh.Range("A1:A5") 　　　.SeriesCollection(2).Values = _ 　　　　wsh.Range("C1:C5") 　　End With End Sub --sheet1-- 　　A　B　C ----------- 1|　1　2　3 2|　2　3　4 3|　3　4　5 4|　4　5　6 5|　5　6　7 系列１のグラフはB列 対 A列という意図通りのものになったのですが、系列２のグラフは、Y軸の値が、C列の値にB列の値を足したもの (1,2+3)、(2,3+4) ・・・ になってしまいました。系列２のグラフも純粋にC列 対 A列したいのですが、そのためにはどうすれば良いでしょうか。ご教授ください。

  • グラフの削除をExcelVBAで行う

    こんばんは。同じシートの中にグラフを３つ作成し、 コマンドボタンを押すとグラフを削除し、新しいグラフを作成するようにしたいのですが、グラフの３つ目を削除のしようとするとエラーが発生してしまいます。 ２つ目までは順調に消えるのですが、３つ目のグラフが削除されないのはなぜなのでしょうか。 色々教えていただき何とか形になってきたのですが、確認すると色々とぼろがでてきてしまい、困っています。 どなたか教えていただけないでしょうか。 宜しくお願い致します。 Sub Glafu() Dim chartobj As ChartObject Worksheets("ABC").Activate ActiveSheet.ChartObjects(1).Delete ActiveSheet.ChartObjects(2).Delete ActiveSheet.ChartObjects(3).Delete Set chartobj = Worksheets("ABC").ChartObjects.Add(600, 0, 300, 200) chartobj.Chart.SetSourceData Worksheets("ABC").Range(Range("b2").End(xlDown), ActiveCell.End(xlToRight)) With Worksheets("ABC").ChartObjects(1).Chart .HasTitle = True .charttaitle.Text = "タイトル１" End With Set chartobj = Worksheets("ABC").ChartObjects.Add(600, 200, 300, 200) chartobj.Chart.SetSourceData Worksheets("ABC").Range(Range("e2").End(xlDown), ActiveCell.End(xlToRight)) With Worksheets("ABC").ChartObjects(1).Chart .HasTitle = True .charttaitle.Text = "タイトル２" End With Set chartobj = Worksheets("ABC").ChartObjects.Add(600, 400, 300, 200) chartobj.Chart.SetSourceData Worksheets("ABC").Range(Range("h2").End(xlDown), ActiveCell.End(xlToRight)) With Worksheets("ABC").ChartObjects(1).Chart .HasTitle = True .charttaitle.Text = "タイトル３" End With End Sub

  • ＶＢＡのグラフに違うシートの系列の追加について？？

    ＶＢＡでグラフに新たな系列を追加しようと思い 以下のプログラムを書きました。 しかしながら、 . Valuesの値の指定の場所でエラーが発生しました。 また、 .XValues = Sheets(シート名(o)).Range(Cells(2, 1), Cells(行の数 + 1, 1)) .Values = Sheets(シート名(o)).Range(Cells(2, p + 1), Cells(行の数 + 1, p + 1)) を .XValues = Range(Cells(2, 1), Cells(行の数 + 1, 1)) .Values = Range(Cells(2, p + 1), Cells(行の数 + 1, p + 1)) に直すとうまくいきました。 別のシートの値をグラフに設定する方法がわかっていないみたいなのですが、 やり方がよくわかりません。 もし、わかる方がいたら教えていただけないでしょうか？ よろしくお願いします。 以下、書いたプログラムです。 o=2 ActiveSheet.ChartObjects("グラフ1 " ).Activate ActiveChart.SeriesCollection.NewSeries 'グラフの種類・データの範囲・凡例・2軸の使用を指定します With ActiveChart.SeriesCollection(o) 'グラフの種類を設定 折れ線グラフ .ChartType = xlXYScatterLines 'データの指定 .XValues = Sheets(シート名(o)).Range(Cells(2, 1), Cells(行の数 + 1, 1)) '←ここでエラーが出ます。 .Values = Sheets(シート名(o)).Range(Cells(2, p + 1), Cells(行の数 + 1, p + 1)) '凡例の指定 .Name = シート名(o) End With

  • EXCEL2007 <VBAで散布図の系列の追加>

    EXCEL2007 <VBAで散布図の系列の追加> 標記の通り、VBAで散布図に新たに系列を追加したいのです。 たとえば現在、系列1があるとします。 そこで、横軸がA1:A10、縦軸がB1:B10のデータを追加するとします。 　　　　ActiveChart.SeriesCollection.Add Range("A1:B10") しかし、このマクロだと縦軸がA1:A10の系列2と縦軸がB1:B10の系列3ができてしまします。 そこで、ためしに 　　　　ActiveChart.SeriesCollection.Add Range("A1")　　　'仮に作る 　　　　With ActiveChart.SeriesCollection(2) 　　　　　　.XValues = Range("A1:A10") 　　　　　　.Values = Range("B1:B10") 　　　　End With とすると、「実行時エラー'1004'; アプリケーション定義またはオブジェクト定義のエラーです。」となります。 いろいろ検索したのですが、これと言ったのがみつかりません。 意図するマクロはどのようなものになるのでしょうか。 ご教示お願いします。

  • Excelマクロによるグラフ作成時の元データの取得について

    　Excelマクロでグラフを作成したいのですが、以下(1)のように書いたら、Grp1.Chart.SetSourceData・・・のところでエラーになってしまいました。そこで、Rangeのところを(2)の様に変更したら、うまくいきました。ただ、自分としては、(1)のようにRangeの中にCellsを使う書き方でやりたいのですが、そのようにはできないでしょうか。 　なお、マクロ初心者なので、簡単な表現でお願いします。 (1) Sub グラフ挿入_Macro() Set Grp1 = Sheets("グラフ1").ChartObjects.Add(10, 10, 500, 200) Grp1.Chart.SetSourceData _ Source:=Sheets("データ").Range(Cells(3, 1), Cells(10, 2)), _ PlotBy:=xlColumns End Sub (2) Sub グラフ挿入_Macro() Set Grp1 = Sheets("グラフ1").ChartObjects.Add(10, 10, 500, 200) Grp1.Chart.SetSourceData _ Source:=Sheets("データ").Range("A3:B10"), _ PlotBy:=xlColumns End Sub

  • VBA 散布図 系列名 設定あるいは削除

    以下のように複数データ範囲を選択して、散布図を作成しており、 セルA2とB2に入力した数値からデータ範囲を設定しています。 しかし、実行すると、系列1~i以降に系列i+1~がだらだらと続いてしまいます。 系列i+1以降をを削除するか、ちゃんと1~iまで系列のみ表示させるにはどのようにしたら良いのでしょうか。 どうぞ宜しくお願い致します。 Dim i As Variant i = Range("A2").Value Dim j As Variant j = Range("B2").Value Dim k As Variant k = i Dim l As Variant l = j Dim ChartObj As ChartObject Dim ChartOne As Chart Set ChartObj = ActiveSheet.ChartObjects.Add(1260, 100, 350, 240) Set ChartOne = ChartObj.Chart With ChartOne .ChartType = xlXYScatterLines .HasTitle = True .ChartTitle.Text = Range("C3").Value .HasLegend = True .Legend.Position = xlLegendPositionRight With .Axes(xlValue, xlPrimary) .HasTitle = True .AxisTitle.Text = Range("D3").Value End With With .Axes(xlCategory, xlPrimary) .HasTitle = True .AxisTitle.Text = Range("E3").Value End With For k = 1 To i For l = 1 To j ChartOne.SeriesCollection.NewSeries ChartOne.FullSeriesCollection(k).Name = Cells(5, k + 10) ChartOne.FullSeriesCollection(k).XValues = Range(Cells(5, k + 30), Cells(4 + l, k + 30)) ChartOne.FullSeriesCollection(k).Values = Range(Cells(5, k + 50), Cells(4 + l, k + 50)) Next Next End With

  • ExcelのVBAの保護をかけた時のグラフについて教えてください。

    グラフにタイトルを設定した後、保護をかけると「ChatクラスのHasTitleプロパティを設定できません」といわれてしまい、.HasTitle=Trueで止まってしまいました。シートの保護をかけても動くようにしたいのですが、どうしたらよいのでしょうか。 （保護しなければ通常に動きます。） 'グラフをオブジェクトで配置 set chartObj=worksheets("Sheet1").ChartObjects.Add(200,0,300,200) chartObj.Chart.SetSourceData Worksheets("Sheet1").range(range("b4").End(xlDown),ActiveCell.end(xlToright)) 'タイトルをつける with worksheets("Sheet1").ChartObjects(1).Chart .HasTitle=True .ChartTitle.Text="タイトル" End with 保護をかけてもグラフの作成ができるのに、タイトル部分で止まってしまうのはなぜでしょうか。 よろしくお願い致します。

  • グラフのデータ範囲をCellsで指定するとエラー

    あるサイトを参考に、ＶＢＡでChartType が xlStockOHLC　形式のグラフを作成しようとしています。 ところがデータ範囲の指定方法で .SetSourceData Source:=wsdata1.Range("b1:e100"), PlotBy:=xlColumns あるいは i = 100 .SetSourceData Source:=wsdata1.Range("b1:e" & i), PlotBy:=xlColumns とすれば、正常に動作しますが、 .SetSourceData Source:=wsdata1.Range(Cells(1, 2), Cells(100, 5)), PlotBy:=xlColumns とすると、Rangeメソッドは失敗しました。_worksheetオブジェクト　となります。 両者は同じ範囲を指定しているつもりなのですが、どこが間違いでしょうか。 Option Explicit Sub sample() Dim ws As Worksheet Dim wsdata0, wsdata1 As Worksheet Dim topPosition As Double Dim leftPosition As Double Dim width As Double Dim height As Double Dim chartObj As ChartObject Dim chart0, chart1 As chart Dim i As Integer 'グラフを作成するシートを指定 Set ws = Worksheets("Sheet1") Set wsdata0 = Worksheets("saya00") Set wsdata1 = Worksheets("saya01") 'グラフを表示させる位置を取得　※例としてセル「G2」の位置を取得 With ws.Range("a1") leftPosition = .Left topPosition = .Top End With 'グラフの横と縦のサイズを設定 width = 1000 height = 500 'ChartObjectオブジェクトを作成 Set chartObj = ws.ChartObjects.Add(leftPosition, topPosition, width, height) 'ChartObjectオブジェクトの名前を設定 chartObj.Name = "saya" 'Chartオブジェクト(グラフ)を作成 Set chart0 = chartObj.chart With chart0 'グラフの作成元としてセル「B2」から一覧の範囲を指定 ' .SetSourceData Source:=wsdata.Range("b1:e100"), PlotBy:=xlColumns ' .SetSourceData Source:=ws.Range("b1:e100"), PlotBy:=xlColumns ' i = 100 ' .SetSourceData Source:=wsdata1.Range("b1:e" & i), PlotBy:=xlColumns .SetSourceData Source:=wsdata1.Range(Cells(1, 2), Cells(10, 5)), PlotBy:=xlColumns 'グラフの種類を「折れ線グラフ」に指定 .ChartType = xlStockOHLC 'グラフのタイトルを表示 .HasTitle = True 'グラフのタイトルを設定 .ChartTitle.Text = "saya-1" 'グラフのタイトルのフォントサイズを設定 .ChartTitle.Font.Size = "12" End With '後片付け Set chart0 = Nothing Set chart1 = Nothing Set chartObj = Nothing End Sub

  • エクセルのグラフ

    グラフが貼り付けられているシートを見えない状態でグラフ描画したいのですがうまくいきません ちなみに、今のコードはこうです。 Sub 電力力率表示() ActiveSheet.ChartObjects("グラフ 3").Activate ActiveChart.SeriesCollection(2).Select ActiveChart.SetSourceData Source:=Sheets(s_NAME) _ .Range("A2:C146"), PlotBy:=xlColumns End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する