VBA Mac Excel 2016: Chart .Export Permission Denied Error 70

Попытка сохранить диапазон в виде jpeg-изображения в Mac Excel 2016. Я запускаю код VB, и сначала я получаю эту ошибку: «Ошибка времени выполнения» -2147287035 (80030005) »: указанное измерение недействительно для текущего графика тип." Если я снова удалю Debug, а затем F5, я получу эту ошибку: «Ошибка времени выполнения 70: Permission denied».

Из моих исследований первый – это проблема с песочницей или проблема с диаграммой. Я даже добавил grantAccessToMultipleFiles для исправления, но никакой помощи.

Часть с вопросами:

• 1004 при записи формулы в ячейку с использованием VBA-Excel
• Ошибка RunTime на макросе VBA
• Что вызывает ошибку «Invalid advise flags» во время выполнения в Excel VBA?
• Мой макрос excel генерирует ошибки непоследовательно
• Excel создает новый документ Word с использованием шаблона: ошибка во время выполнения 5981. Метод «Добавить» объекта «Документы» не удалось

.Chart.Export Filename:=ThisWorkbook.Path & "/william.jpg", Filtername:="JPG" 

Вот полный код:

 Sub SaveImage() 'from stackoverflow originally Dim sSheetName As String Dim oRangeToCopy As Range Dim Lastrow As Integer Dim manager As String manager = Worksheets("by Mgr").Range("C6").Value Set b = Worksheets("by Mgr").Range("T:T").Find(what:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues) Lastrow = b.Row sSheetName = "by Mgr" ' worksheet to work on With Worksheets(sSheetName).Range("A1:T" & Lastrow) .CopyPicture xlScreen, xlPicture 'Getting the Range height PicHeight = .Height 'Getting the Range Width PicWidth = .Width End With filePermissionCandidates = Array(ThisWorkbook.Path) fileAccessGranted = GrantAccessToMultipleFiles(filePermissionCandidates) With Worksheets(sSheetName) 'Creating the Chart .ChartObjects.Add(30, 44, PicWidth, PicHeight).name = manager With .ChartObjects(manager) 'Pasting the Image .Chart.Paste 'Exporting the Chart .Chart.Export Filename:=ThisWorkbook.Path & "/william.jpg", Filtername:="JPG" End With .ChartObjects(manager).Delete End With End Sub 

Я собираюсь в конце концов, любые идеи оценены.

 .Chart.Export Filename:=ThisWorkbook.Path & Application.PathSeparator & "william.jpg", Filtername:="JPG"