摘要: Sub ExportChart() Dim myChart As Chart Dim myFileName As String Set myChart = Sheet1.ChartObjects(1).Chart myFileName = "myChart.jpg" On Error Resume Next Kill ThisWorkbook.Path & "\" & myFile... 阅读全文
posted @ 2010-07-17 13:02 RobinLao 阅读(1253) 评论(0) 推荐(0) 编辑