Sub Demo2()
Dim objChart As ChartObject
Dim i As Integer
For Each objChart In ActiveSheet.ChartObjects
objChart.Select
ActiveChart.Export Filename:=ThisWorkbook.Path & "\" & _
objChart.Chart.ChartTitle.Caption & ".PNG", FilterName:="PNG"
i = i + 1
Next
End Sub
CSDN上找到的代码如上,本人实在一边摸索一边学习,在win下完全运行正常的,到了mac下提示第五行报错,另6-7行也提示权限被拒。有无朋友可以看一下到底是哪里出了问题?学习~