作者aup65797 (有緣人)
看板Office
標題[問題] VBA 曲面圖與執行速度
時間Sat Jul 30 09:28:09 2016
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Office
版本:2010
以下為4個 frame , 需要畫曲面圖 , 畫到第2個frame就有問題了 , 煩請幫忙看一下
程式哪裡有問題?
連結如下
https://www.dropbox.com/s/qzqetzfccyv9gx7/3D_Frame%20VBA.xls?dl=0
另外問一下如果有200 Frame 畫曲面圖 , 程式需要跑很久 , 如何改善?
麻煩各位大大解惑
Dim rng As Range
Dim io&, ht!, wd!
Dim cht As Chart
ht = [a2].Resize(30).Height
wd = [a2].Resize(, 17).Width
Set Datasheet = Sheets("Sheet1") '設定為目前工作區
Sheets("Sheet1").Select
ActiveSheet.ChartObjects.Delete
For io = 1 To 4
Set rng = [a2].Offset((io - 1) * 33)
ActiveSheet.Shapes.AddChart.Select
Set cht = ActiveChart
cht.ChartType = xlSurface
cht.SetSourceData Source:=rng.Resize(30, 17)
cht.ChartArea.Top = rng.Top + ht / 2 - cht.ChartArea.Height / 2
cht.ChartArea.Left = rng.Left + ht / 2 - cht.ChartArea.Width / 2
Next
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.141.118.123
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1469842093.A.DFB.html
※ 編輯: aup65797 (223.141.118.123), 07/30/2016 09:30:26
※ 編輯: aup65797 (223.141.118.123), 07/30/2016 09:32:05
1F：→ soyoso: 畫到第2個圖表出現的問題，將33改32試試 07/30 09:41
2F：→ soyoso: 測試只新增1張圖表，以迴圈調整數列範圍後，輸出為圖片 07/30 10:34
3F：→ soyoso: copypicture，200張圖表可縮短3倍多的時間 07/30 10:35
6F：→ aup65797: 如何更改縮短時間,小弟還是不懂,曲面圖測試時都會有未知 07/30 10:50
7F：→ aup65797: 的錯誤 07/30 10:50
8F：→ soyoso: 是否工作表內無任何一個圖表？ 07/30 10:56
9F：→ soyoso: 如果無的話chartobjects.delete會出現錯誤 07/30 10:56
※ 編輯: aup65797 (223.141.118.123), 07/30/2016 12:45:5
https://www.dropbox.com/s/igps4250iz4b9ht/ChartType%E9%9A%8E%E6%AE%B5%E9%8C%AF%E8%AA%A4.png?dl=0
以上又有新增一個錯誤 , 感謝S大大
※ 編輯: aup65797 (223.141.118.123), 07/30/2016 12:48:45
10F：→ soyoso: 將charttype移至setsourcedata後面試試 07/30 13:00