[問題] VBA 曲面圖 置中問題

[aup65797 (有緣人)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.83.53.21
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1467967662.A.E4B.html
→ soyoso: https://imgur.com/V8b4xdk 類似這樣
→ soyoso: 上面設定為列高相同時，如有可能各範圍的列高不一致時
→ soyoso: 再請動態調整
→ aup65797: OK