[發問] 關於UserForm 中物件ChartSpace的用法請教

uf023630

各位前輩們

最近一在研究如何在UserForm 中使用 ChartSpace (Microfost Office Web Companents 11.0)
但是我無法將4組資料放在同一個表格上!
我有爬過聞了(這裡)但是還是有問題
Google 也找不到相關的資料，連ChartSpace 的用法也搞不太清楚:'(
附上檔案與程式，希望大家幫幫我
我用的是office2007

1. Private Sub UserForm_Initialize()
   
2. Dim m As Integer, i As Integer
   
3. Dim chc
   
4. Dim chtnewchart
   
5. m = 12
   
6. ReDim Ascategories(m), Aivalues(m), Aivalues2(m)
   
7. ChartSpace1.Clear
   
8. For y = 1 To 2
   
9. For i = 1 To m
   
10.     Ascategories(i) = ThisWorkbook.Sheets(1).Cells(i + 1, 1)
    
11.     Aivalues(i) = ThisWorkbook.Sheets(1).Cells(i + 1, 1 + y)
    
12. Next i
    
13. 
    
14.     Set chc = ChartSpace1.Constants
    
15.     Set chtnewchart = ChartSpace1.Charts.Add
    
16.     chtnewchart.Type = chc.chChartTypeLineMarkers
    
17.     With chtnewchart
    
18.     .SetData chc.chDimSeriesNames, chc.chDataLiteral
    
19.     .SetData chc.chDimCategories, chc.chDataLiteral, Ascategories
    
20.     .SeriesCollection(0).SetData chc.chDimValues, chc.chDataLiteral, Aivalues
    
21.     End With
    
22. 
    
23. Next y
    
24. With ChartSpace1
    
25. 
    
26. .HasChartSpaceTitle = True
    
27. .ChartSpaceTitle.Caption = "Family"
    
28. .ChartSpaceTitle.Font.Size = 25
    
29. 
    
30. End With
    
31. 
    
32. End Sub

複製代碼

Book1.rar (18.08 KB)

下載次數: 26

2011-8-5 23:10

oobird

For y = 1 To 4

uf023630

oobrid 大大
我知道 for Y = 1 to 4
但是run 完後會在ChartSpace物件中產生4個小"曲線圖"，而不是合而為一
你可能要執行我附的檔案才會了解