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

[aup65797 (有緣人)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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
→ soyoso: 畫到第2個圖表出現的問題，將33改32試試
→ soyoso: 測試只新增1張圖表，以迴圈調整數列範圍後，輸出為圖片
→ soyoso: copypicture，200張圖表可縮短3倍多的時間
→ soyoso: http://imgur.com/a/BhW3e
→ aup65797: https://www.dropbox.com/s/p8mbu31bbhigx5e/Error%20me
→ aup65797: 如何更改縮短時間,小弟還是不懂,曲面圖測試時都會有未知
→ aup65797: 的錯誤
→ soyoso: 是否工作表內無任何一個圖表？
→ soyoso: 如果無的話chartobjects.delete會出現錯誤
※ 編輯: 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
→ soyoso: 將charttype移至setsourcedata後面試試