返回列表 上一主題 發帖

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

uf023630

帖子
17 
主題
7 
精華
0 
積分
62 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Tinwan 
註冊時間
2011-4-9 
最後登錄
2018-7-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-5 23:24 | 只看該作者

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

各位前輩們

最近一在研究如何在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

  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

  23. Next y
  24. With ChartSpace1

  26. .HasChartSpaceTitle = True
  27. .ChartSpaceTitle.Caption = "Family"
  28. .ChartSpaceTitle.Font.Size = 25

  30. End With

  32. End Sub
複製代碼
Book1.rar (18.08 KB)
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-8-6 09:38 | 只看該作者
For y = 1 To 4

TOP

uf023630

帖子
17 
主題
7 
精華
0 
積分
62 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Tinwan 
註冊時間
2011-4-9 
最後登錄
2018-7-6 
3#
發表於 2011-8-6 11:43 | 只看該作者
oobrid 大大
我知道 for Y = 1 to 4
但是run 完後會在ChartSpace物件中產生4個小"曲線圖"，而不是合而為一
你可能要執行我附的檔案才會了解

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題