[問題] VBA 曲面圖與執行速度

看板Office作者 (有緣人)時間9年前 (2016/07/30 09:28), 9年前編輯推噓0(0推 0噓 10→)
留言10則, 2人參與, 最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體: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://www.ptt.cc/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
→
07/30 09:41, , 1F
畫到第2個圖表出現的問題，將33改32試試
07/30 09:41, 1F
→
07/30 10:34, , 2F
測試只新增1張圖表，以迴圈調整數列範圍後，輸出為圖片
07/30 10:34, 2F
→
07/30 10:35, , 3F
copypicture，200張圖表可縮短3倍多的時間
07/30 10:35, 3F
→
07/30 10:35, , 4F
07/30 10:35, 4F
→
07/30 10:50, , 6F
如何更改縮短時間,小弟還是不懂,曲面圖測試時都會有未知
07/30 10:50, 6F
→
07/30 10:50, , 7F
的錯誤
07/30 10:50, 7F
→
07/30 10:56, , 8F
是否工作表內無任何一個圖表？
07/30 10:56, 8F
→
07/30 10:56, , 9F
如果無的話chartobjects.delete會出現錯誤
07/30 10:56, 9F
※ 編輯: 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
→
07/30 13:00, , 10F
將charttype移至setsourcedata後面試試
07/30 13:00, 10F
‣ 更多 aup65797 的文章
文章代碼(AID): #1Nd0Ajtx (Office)