(若是和其他不同软件互动之问题 请记得一并填写)
软件: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