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

看板Office作者 (有緣人)時間9年前 (2016/07/08 16:47), 編輯推噓0(004)
留言4則, 2人參與, 最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體: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

07/08 17:19, , 1F
07/08 17:19, 1F

07/08 17:41, , 2F
上面設定為列高相同時,如有可能各範圍的列高不一致時
07/08 17:41, 2F

07/08 17:42, , 3F
再請動態調整
07/08 17:42, 3F

07/08 18:29, , 4F
OK
07/08 18:29, 4F
文章代碼(AID): #1NVsYkvB (Office)
文章代碼(AID): #1NVsYkvB (Office)