AccessからExcelのグラフのデータ範囲を変更

job

白黒さん

一応仕事もちゃんとしてます的な日記も書かないと、遊んでばかりだと思われます。誰に。
今日はかなりはまったので、残しておくことにしました。
ええと、Access、Excelともにバージョンは2003です。（SP-3。）
AccessからExcelのシートにデータをうめこんでグラフを表示したいのですが、データの件数が可変なので、データ範囲をデータうめこみ後に件数に併せて変えたい。ただそれだけです。
こんな感じで実現できました。



Private Enum XlRowCol

  xlRows = 1

  xlColumns = 2

End Enum
Private Sub SetExcelGraphSourceData()

  Dim objExcel As Object

  Dim objBook As Object

  Dim objSheet As Object
  Call objExcel.Workbooks.Open("D:\work\test.xls")

  Set objBook = objExcel.Workbooks("test.xls")

  Set objSheet = objBook.WorkSheets("Sheet1")

  With objSheet.ChartObjects("Graph1").Chart

    .SetSourceData Source:=objBook.WorkSheets("Sheet2").Range("A1:Z100"), PlotBy:=XlRowCol.xlColumns

  End With
End Sub
オブジェクトの後始末とかは適当にやってください。
しんどい。