圖表精靈[問](編號：5150)

Dim objXL
Dim objXLchart
Dim intRotate
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Workbooks.Add
objXL.Cells(1,1).Value = 5
objXL.Cells(1,2).Value = 10
objXL.Cells(1,3).Value = 15
objXL.Range("A1:C1").Select
Set objXLchart = objXL.Charts.Add()
objXL.Visible = True
objXLchart.Type = -4100 ＜---圖表形態是如何得知其數字的???
xy散佈圖呢？

For intRotate = 5 To 180 Step 5
objXLchart.Rotation = intRotate
Next
For intRotate = 175 To 0 Step -5
objXLchart.Rotation = intRotate
Next