PTT
Submit
Submit
選擇語言
正體中文
简体中文
PTT
Office
[問題] 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倍多的時間
" target="_blank" rel="nofollow">
作者:
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後面試試
繼續閱讀
[問題] 甲儲存格打檔名,乙儲存格自動插入圖片?
jbs2000
[算表] excel勾選後合併成一列(逗點分開)
zcad
[算表] 數字加總應等於零卻不等於零
wplinwp
[算表] Excel轉置
cannoli
[算表] 日期排除不要的
jojofox90
[算表] EXCEL 鎖公式不鎖欄位值
perasa
[算表] excel班表問題求解答[已解決]
andycs0309
[算表] 三個字母排列組合
jie123
[算表] EXCEL 輸入函數太少 引數
perasa
[文件] pdf轉WORD 字型無法修改
MAGICXX
Links
booklink
Contact Us: admin [ a t ] ucptt.com