(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Office
版本:2010
因此曲面圖都必須給一個座標 , 它才會至於30*17陣列的中央 , 可否讓它都至於中央
,因為我會用大大教的方式 , 用for迴圈寫 , 當有10個frame的時候 , 曲面圖都必須一一
對照到30*17的中央位置
如範例https://www.dropbox.com/s/pzwyly3cmxdmoxh/Frame%20VBA.xls?dl=0
Range("B2:R31").Select
Range("R31").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlSurface
ActiveChart.SetSourceData Source:=Range("工作表1!$B$2:$R$31")
ActiveSheet.Shapes("圖表 1").IncrementLeft -553.6362992126
ActiveSheet.Shapes("圖表 1").IncrementTop -182.7273228346
ActiveWindow.SmallScroll Down:=15
Range("B34:R63").Select
Range("R63").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlSurface
ActiveChart.SetSourceData Source:=Range("工作表1!$B$34:$R$63")
ActiveSheet.Shapes("圖表 2").IncrementLeft -542.7273228346
ActiveSheet.Shapes("圖表 2").IncrementTop 90

https://imgur.com/V8b4xdk 類似這樣上面設定為列高相同時，如有可能各範圍的列高不一致時再請動態調整

OK