標題: 用excel做出曲線圖然後秀到VB6上 [打印本頁]

---

作者: sionkozx    時間: 2011-7-26 14:45     標題: 用excel做出曲線圖然後秀到VB6上

小弟我最近在寫VB6~

想說要把excel檔案裡面的曲線圖秀在VB6上面~

目前是可以辦到!~

不過有一些地方有點問題~

1. Dim nowChart As Object
Set nowChart = xlBook.Charts.Add
nowChart.ChartType = xlLineMarkers
' nowChart.SetSourceData Source:=Sheets("Sheet6").Range("A2:D8") '加上去有問題~這行在重複執行的時候會顯示錯誤!~
nowChart.Location Where:=xlLocationAsObject, Name:="Sheet" & CInt(selectsheet.Text)

2.再來就是想調整一下圖片的大小~就是在excel裡面調整好在秀到VB6上面這樣~

xlSheet.Shapes("圖表 1").ScaleWidth 1.05, msoFalse, msoScaleFromTopLeft

想說用這個去調整~但是好像msoFalse, msoScaleFromTopLeft變數未定義!~害我不知要如何下手!

---

作者: hugh0620    時間: 2011-7-27 07:24

本帖最後由 hugh0620 於 2011-7-27 08:02 編輯

樓主~
我沒有用過VB6的方式寫過程式~
不過~ 求學時同學有用過DELPHI 7的方式畫過曲線圖~
是否樓主朝的方向往VB6 找曲線圖的物件~
直接在VB6上完成~ 不是比較方便一些~
(VB6出來怎麼久了~ 曲線圖的物件應該可以找的到)
個人小小的建議
下列網址是網上使用vb6繪製曲線圖的範例~ 希望能夠幫到你~
http://tw.myblog.yahoo.com/lk-hsu/article?mid=2159

---

作者: sionkozx    時間: 2011-7-27 10:28

多謝hugh0620兄~
我會好好來研究一下怎麼使用的^^~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)