vba导出excel图表并以表头命名文件，换环境报错

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行也提示权限被拒。有无朋友可以看一下到底是哪里出了问题？学习~