[问题] VBA 曲面图与执行速度

楼主: aup65797 (有缘人)   2016-07-30 09:28:09
(若是和其他不同软件互动之问题 请记得一并填写)
软件: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
作者: soyoso (我是耀宗)   2016-07-30 09:41:00
画到第2个图表出现的问题,将33改32试试测试只新增1张图表,以循环调整数列范围后,输出为图片copypicture,200张图表可缩短3倍多的时间http://imgur.com/a/BhW3e
楼主: aup65797 (有缘人)   2016-07-30 10:47:00
https://www.dropbox.com/s/p8mbu31bbhigx5e/Error%20me如何更改缩短时间,小弟还是不懂,曲面图测试时都会有未知的错误
作者: soyoso (我是耀宗)   2016-07-30 10:56:00
是否工作表内无任何一个图表?如果无的话chartobjects.delete会出现错误将charttype移至setsourcedata后面试试

Links booklink

Contact Us: admin [ a t ] ucptt.com