[算表] 用VBA刪除多個圖表

看板Office作者 (我發現我的時間不多了)時間12年前 (2013/11/12 23:31), 編輯推噓0(005)
留言5則, 2人參與, 最新討論串1/1
軟體: Excel 版本: 2010 在工作表1裡面有4張用錄製巨集產生的「XY散佈圖」 我寫了一個code,想執行之後,會把這4張散佈圖刪掉 我是這樣寫的 Dim i as integer For i=1 to 4 Activesheet.chartobjects(i).delete Next i 但是它跑到i=3的時候就出錯了,我不知道哪裡有問題。 有請高手幫我解答,謝謝! PS: 於是我放棄迴圈,我試著用最笨的方法寫 Activesheet.chartobjects(1).delete Activesheet.chartobjects(2).delete Activesheet.chartobjects(3).delete Activesheet.chartobjects(4).delete 但一樣的,也是執行到第三個圖表就出現錯誤了... Orz -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 111.251.196.80

11/12 23:49, , 1F
chartobjects(1).delete 會刪除該工作表最下層的那張圖
11/12 23:49, 1F

11/12 23:50, , 2F
如果刪到剩兩張圖,i=3 找不到第三張圖,就會出錯
11/12 23:50, 2F

11/12 23:52, , 3F
試試chartobjects("圖表 " & i).delete
11/12 23:52, 3F

11/12 23:54, , 4F
如果要刪全部的圖,試試ActiveSheet.ChartObjects.Delete
11/12 23:54, 4F

11/13 20:25, , 5F
哦!我懂了,謝謝W大
11/13 20:25, 5F
文章代碼(AID): #1IWad3IP (Office)
文章代碼(AID): #1IWad3IP (Office)