• ベストアンサー

VBAにてExcelでグラフ元データの範囲を取得する関数は？

Eagle1972の回答

  • ベストアンサー
  • Eagle1972
  • ベストアンサー率100% (4/4)
回答No.1

私はこんな感じでやってます。 ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R1C2:R10C2" あと、良い方法教えます。 マクロの記録を実行しておいてウィザードで指定した範囲のグラフを作ってみます。 その後マクロの記録を停止して、そのマクロをＶＢＡのエディタで見ると、指定した範囲のデータをどのように取得しているのかが一目瞭然です。 以上、参考になればいいのですが。

4jigenn_pokke
質問者

お礼

ありがとうございました。

この回答がついた質問に戻る
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • マクロでグラフのデータ範囲を換える

    散布図のグラフの参照データをマクロによって変更したいのですが、エラーが出て困っています。どこが誤っているのかご指摘いただければ幸いです。 ワークシート2にあるグラフ1について、 その１つ目のグラフを変更したい。 ｘの値をワークシート１の (a,7)～(z,7)に yの値を同じく(a,10)～(z,10)にしたいと思っています。 このオブジェクトはこのプロパティかメソッドをサポートしないとのエラーが出ます。 Set range1 = worksheets(1).Range(Cells(a, 7), Cells(z, 7)) Set range2 = worksheets(1).Range(Cells(a, 10), Cells(z, 10)) With Worksheets(2).ChartObjects("グラフ 1") .SeriesCollection(1).XValues = range2 .SeriesCollection(1).Values = range1 End With

  • エクセルVBAでコピーしたグラフについて

    別シートからグラフをコピーして新シートにはりつけました 元データの範囲を1行下を参照するようにマクロで作成したいのですが。。。 =SERIES(系列名,Xの値,Yの値,系列番号) の系列名とYの値を一行下の範囲を参照したいのです。 グラフから下のようにデーター範囲を取得し、一行下の行のデータ範囲に変えてグラフを変更したいです。 　ActiveChart.SeriesCollection(1).Formula = _ "=SERIES(元データ!$B$19,元データ!$C$3:$DI$3,元データ!$C19:$DI19,1)" 　　　　　　　　　　　　　　　　　　　　↓　このようにしたいのですが1回ごとに19を20に打ち直さずにマクロ　　　　　　　　　　　　　　　　　　　　　　　でしたいのです ActiveChart.SeriesCollection(1).Formula = _ "=SERIES(元データ!$B$20,元データ!$C$3:$DI$3,元データ!$C20:$DI20,1)" ループさせて　19を20につぎは20を21に・・・・・最終的には59を60行を参照するように 取得して変換していきたいのです 書き方が悪くて申し訳ありません。 どなたかわかるかた大至急教えてください。宜しくお願いいたします。

  • Excwlグラフの元データの参照関数

    VBAでExcelのグラフの「元のデータ」のデータ範囲の 値を取得する関数等がありましたら教えていただけな いでしょうか。 系列の名前や値は取れるのですが。。 以上よろしくお願いいたします。

  • Excel 2007 <VBAでグラフの操作(Seriescollec

    Excel 2007 <VBAでグラフの操作(Seriescollectionの移動> あるチャートに系列が4つあります。 それぞれの名前を順に系列(1)、系列(2)、系列(3)、系列(4)とします。 これを系列(1)、系列(4)、系列(2)、系列(3)としたいのですが、 以下の記述では無理（オブジェクトはこのメソッドをサポートしていないとのこと）でした。 どのような記述になるでしょうか。 ご教示方よろしくお願いします。 Sub Temp6() 　　Dim myChart As Chart 　　For Each myChart In Charts 　　　　myChart.SeriesCollection(4).Move after:=myChart.SeriesCollection(1) 　　Next End Sub

  • VBAでグラフの範囲指定

    VBAでグラフ範囲指定について 先日質問させて頂いたのですが、行き詰ってしまったのでどうかご指南ください。 只今、sheet1データ一覧をダブルクリックした際にsheet2へ移り、表の詳細データが記入されるツールを作っています。 sheet2には表詳細データ以外にも、空白を挟んで他のデータが記入され、詳細データの散布図グラフが挿入されています。 sheet2に移り詳細データが表示されるようには出来ているのですが、表は12行に項目、13行からデータが始まるのは固定で、終わりの行はその都度変わるため、sheet1のダブルクリックした際のシート移動の処理の中に記述し、sheet2に記入された表データを参照して散布図のグラフを挿入したく思いました。 Dim ws2 As Worksheet Dim logGYO As Long Dim j As Long Dim x軸 As Variant Dim 系列1y軸 As Variant Dim 系列2y軸 As Variant Dim GYOMAX As Long Set ws2 = Worksheets("sheet2名前") ws2.ChartObjects("詳細グラフ").Activate ActiveChart.ChartArea.Select logGYO = 13 j = 13 Do Until ws2.Cells(j, 1).Value = "" j = j + 1 Loop GYOMAX = j - 1 With ws2 x軸 = .Range(.Cells(logGYO, 1), .Cells(GYOMAX, 1)) 系列1y軸 = .Range(.Cells(logGYO, 2), .Cells(GYOMAX, 2)) 系列2y軸 = .Range(.Cells(logGYO, 4), .Cells(GYOMAX, 4)) End With With ActiveChart.SeriesCollection(1) .XValues = x軸 .Values = 系列1y軸 .Name = "=""系列1名前""" End With With ActiveChart.SeriesCollection(2) .XValues = x軸 .Values = 系列2y軸 .Name = "=""系列2名前""" End With 実行したところ、「SeriesクラスのXValuesプロパティを設定できません」とエラーが出てしまいます。 SeriesCollection(1).Formula = "=SERIES(" & Range("B12")～ とFormulaと記述を変えて試してもみたのですが、「SeriesクラスのFormulaプロパティを設定できません」とエラーが出ます。 2週間程前までExcel自体を殆ど使ったことが無かった初心者のため、見当外れな質問をしていたら申し訳ありません。 どうか宜しくお願い致します

  • エクセルVBAでグラフの線とマーカを設定したい

    エクセルVBAでグラフの線とマーカを設定したいです。 グラフの線は無しでマーカの線が有りにしたいのですが、 マクロで記録したコードを見ると グラフの線、マーカの線ともにFormat.Line.Visibleで指定しています。 実際にコードを記述しても、以下の様になり、グラフの線が表示されてしまいます。 ChartObjects("1").Chart.SeriesCollection(10).Format.Line.Visible = msoFalse With ChartObjects("1").Chart.SeriesCollection(10).Format.Line .Visible = msoTrue .ForeColor.RGB = RGB(255, 102, 0) .Transparency = 0 End With グラフの線は無しでマーカの線が有りに設定は出来ないのでしょうか?

  • 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 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列したいのですが、そのためにはどうすれば良いでしょうか。ご教授ください。

  • エクセルグラフ２００３と２００７の違いについて

    エクセル２００３で下記のVBAの構文を作成しました。 入力画面シートで入力し、グラフに色付けを反映させたものを 印刷画面のグラフに同じものを反映させているのですが エクセル２００３ではうまくいっていたのですが エクセル２００７になると構文中の 【Sheets("印刷画面").ChartObjects("グラフ 2").Chart.SeriesCollection(1).Points(i).Interior.ColorIndex = nColor】の部分で 実行時エラー'-2147467259(80004005) ColorIndexメソッドは失敗しました;'Interior'オブジェクト とでてきて使用できなくなりました。 どなたかエクセル２００７で使用できるようにする方法を教えてください。 作成した構文は以下のものです。 Sub Sam1() Dim nColor As Variant Dim i As Long i = 1 If Sheets("入力画面").Cells(i, "M") = 1 Then nColor = 5 Sheets("入力画面").ChartObjects("グラフ 8").Chart.SeriesCollection(1).Points(i).Interior.ColorIndex = nColor Sheets("印刷画面").ChartObjects("グラフ 2").Chart.SeriesCollection(1).Points(i).Interior.ColorIndex = nColor End Sub

  • VB2005でExcelのグラフのデータ範囲を設定したい

    VB2005で既存のExcelのグラフのデータ範囲を設定したいのですが どなたか教えてください。 VB6.0では下記のコードで実現できましたが VB2005ではいろいろ調べたり変更してみたりしたのですが実現できませんでした OSはWindows2000でExcelも2000です Dim ExAp As Excel.Application Dim ExBook As Excel.Workbook Dim ExSheet As Excel.Worksheet On Error GoTo er Set ExAp = CreateObject("Excel.Application") Set ExBook = ExAp.Workbooks.Open("C:\ファイル名.xls") Set ExSheet = ExBook.Worksheets("シート名") ExAp.Visible = True ExSheet.Activate ExSheet.ChartObjects("グラフ 1").Activate With ActiveChart .SeriesCollection(1).XValues = ExSheet.Range("B21:B24") .SeriesCollection(1).Values = ExSheet.Range("C21:C24") End With Exit Sub er: Set ExSheet = Nothing Set ExBook = Nothing Set ExAp = Nothing MsgBox Err.Description

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する