2

VBScript を使用して、次のデータでスキャッターを作成しようとしています。

x軸：A1～F1、y軸：A2～F2

これまでに見つけたコードは次のとおりです。

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()

Set objWorksheet = objWorkbook.Worksheets(1)

objWorksheet.Cells(1,1) = 80
objWorksheet.Cells(1,2) = 82
objWorksheet.Cells(1,3) = 85
objWorksheet.Cells(1,4) = 91
objWorksheet.Cells(1,5) = 178
objWorksheet.Cells(1,6) = 91

objWorksheet.Cells(2,1) = 5
objWorksheet.Cells(2,2) = 7
objWorksheet.Cells(2,3) = 8
objWorksheet.Cells(2,4) = 9
objWorksheet.Cells(2,5) = 10
objWorksheet.Cells(2,6) = 11

Set objRange = objExcel.Range("A1:F1")
objRange.Select

Set colCharts = objExcel.Charts
colCharts.Add()

Set objChart = colCharts(1)
objChart.Activate

objChart.ChartType = 72

私が直面している問題は、Range(A2:F2) である y 軸を定義する方法が見つからないことです。

お手伝いいただけますか？前もって感謝します。

4

1 に答える 1

1

次の行を追加します。

objChart.SetSourceData objExcel.Sheets(2).Range("A1:F2")

編集：別のシリーズを追加するには、これを試してください：

Function GetAddress(sheet, range)
  GetAddress = "=" & sheet.Name & "!" & sheet.Range("A5:F5").Address(,,-4150)
End Function

Set series = objChart.SeriesCollection.NewSeries
series.XValues = GetAddress(objWorksheet, "A4:F4")
series.Values  = GetAddress(objWorksheet, "A5:F5")
于 2013-09-17T10:19:18.287 に答える