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

一応仕事もちゃんとしてます的な日記も書かないと、遊んでばかりだと思われます。誰に。
今日はかなりはまったので、残しておくことにしました。
ええと、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

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