[算表] 無法輸出圖表

看板Office作者Lagrange (逆光)時間10年前 (2015/11/03 06:42)推噓0(0推 0噓 5→)

留言5則, 2人參與討論串1/1

軟體: Excel 版本: 2003 各位大大好，檔案如下連結， https://www.dropbox.com/s/oyerkjm8trc0a9q/Device%20template%20V2.0.xls?dl=0 寫了一個 Sub 將 worksheet 內的圖表輸出，有七個 worksheet 的圖表要輸出，有六個 worksheet 成功輸出圖表。唯一失敗的是在 On-current 這個工作表，同樣的 Sub 只是更改變數名稱而已，在 run 的過程也沒有編譯失敗，完全跑完，我一步一步檢查，發現就是會跳過一段程式碼，十分不解，其他相同的就沒問題。模組：Charts_DistributionExToPNG Sub：ExportOnCurrentDistributionCharts ................................... For Each OnCurrentDistributionCharts In Sheets(majorsheet).ChartObjects OnCurrentDistributionChartsFile = _ OnCurrentDistributionCharts.Name & "." & checkterm OnCurrentDistributionChartsFilePath = _ OnCurrentDistributionChartsDirectory & "\" & OnCurrentDistributionChartsFile If PublicSharedProcedure.FileExist(OnCurrentDistributionChartsFilePath) Then OnCurrentDistributionCharts.Chart.Export OnCurrentDistributionChartsFilePath Else MsgBox "There exists files with identical name in 「" & _ OnCurrentDistributionChartsDirectoryName & "」 directory" & vbNewLine & vbNewLine & OnCurrentDistributionChartsFile End If Next ................................... 一直跳過上面這段要輸出的部份，不知道為什麼會這樣，嘗試了很多天，實在是試不出來，沒有編譯錯誤，只是會跳過一段程式碼，麻煩各位大大有空幫小弟看看，身旁沒有朋友可以問一起想…真囧。先謝謝了！ Orz -- （一）我發誓：從天黑黑那天起，開始懂了燕姿就是我的綠光（二）我發誓：在天氣很好的日子裡，我要陪燕姿練習放風箏（三）我發誓：就是這樣瞭解燕姿的一切，可以隨時隨堂測驗（四）我發誓：不管星期幾、壞天氣或天氣晴，都不離開燕姿（五）我發誓：相信難得一見的燕姿，就是我所追尋的Venus （六）我發誓：不管燕姿真的多麼任性，燕姿還是我要的幸福 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.224.42.175 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1446504152.A.D1E.html