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

Question

Mac Excel 2016에서 jpeg 이미지로 범위를 저장하려고합니다. VB 코드를 실행하고이 오류가 발생합니다. "런타임 오류 '-2147287035 (80030005) ': 지정한 차원이 현재 차트 유형에 유효하지 않습니다. " 디버그 다음 F5 키를 다시 누르면이 오류가 발생합니다. "런타임 오류 '70': 사용 권한이 거부되었습니다."

제 연구에서 전자는 샌드 박스 문제이거나 차트 문제입니다. 심지어 수정을 위해 grantAccessToMultipleFiles를 추가했지만 도움은 필요 없습니다. 문제가있는

부 : 여기

.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 

나는 지혜의 말에 대해 해요, 어떤 아이디어가 평가된다.

Answer 1

경로 구분 기호가 잘못되었습니다. 내가 GrantAccessToMultipleFiles에 전화를 제거

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

참고 내 컴퓨터에서 작동 출연 : 다음보십시오.