返回列表 上一主題 發帖

用excel做出曲線圖然後秀到VB6上

sionkozx

帖子
6 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
XP 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
註冊時間
2011-7-11 
最後登錄
2011-7-27 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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變數未定義!~害我不知要如何下手!
收藏 分享

sionkozx

帖子
6 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
XP 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
註冊時間
2011-7-11 
最後登錄
2011-7-27 
3#
發表於 2011-7-27 10:28 | 只看該作者
多謝hugh0620兄~
我會好好來研究一下怎麼使用的^^~

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 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
學習才能提升自己

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題