[算表] ExcelVBA 語法問題

作者: billchen123 (ggyy)   2014-09-25 08:09:39
軟體:ExcelVBA
版本:2007
小弟最近要做Chart
以下是程式碼
chart.add
activechart.chartType = xlColumnClustered
activeChart.SetSourceData Source := Sheets("table").Range("A1:D8"),PlotBy := _
xlRows
activeChart.Location Where := xlLocationAsObject , Name := "table"
小弟的問題
1.
有沒有辦法將Range("A1:D8")改成Range(cells(1,1),cells(8,4))
因為沒有成功,也不知到哪裡出問題.......
2.
原本想設計成 xlLocationNewChart 讓生成的圖都在一個分頁,而且圖很大
但是發現沒辦法看過一次就刪掉
請問刪掉那個chart的分頁的語法是哪個
3.
因為第二個問題的關係,所以我改成貼在工作表上,然後每個新生成的圖
都會附蓋之前生成的舊的圖....,因為也不會刪掉貼在工作表上的圖,
所以用覆蓋的...,
請問怎麼將圖放大到很大有第三個問題的效果
4.
有沒有辦法將之前生成的圖刪掉的語法
希望各位大大能夠抽空幫我解答,先在這邊謝謝大大了!
作者: soyoso (我是耀宗)   2014-09-25 08:42:00
問題1先將位置暫存字串再丟到range內http://goo.gl/RuAbvc2.刪掉分頁想到的是sheets.delete3.刪掉貼在工作表上的圖,有命名的話就ActiveSheet.Shapes("chart1").Delete4.刪掉之前生成的圖,假設都沒有命名的話用for each shp in activesheet.shapes ...next迴圈內加上if shp.type = msochart thenshp.delete 來刪除,shp是自訂變數,宣告類型為shape
作者: billchen123 (ggyy)   2014-09-25 11:00:00
謝謝大大幫忙!! 我待會試試看!大大給的例子正是我要的功能!!! 謝謝大大!!!!
作者: soyoso (我是耀宗)   2014-09-25 11:07:00
^^
作者: billchen123 (ggyy)   2014-09-25 11:07:00
小弟後來測試 usedrange 可以用,跟大大分享這個資訊也謝謝大大額外分享 當Chart 在sheet上怎麼刪圖
作者: soyoso (我是耀宗)   2014-09-25 11:10:00
感謝分享^^也可用currentregion

Links booklink

Contact Us: admin [ a t ] ucptt.com