[英]VBA Mac Excel 2016: Chart .Export Permission Denied Error 70
嘗試在 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
我即將結束,任何想法都值得贊賞。
您的路徑分隔符似乎不正確。 請嘗試以下操作:
.Chart.Export Filename:=ThisWorkbook.Path & Application.PathSeparator & "william.jpg", Filtername:="JPG"
請注意,我刪除了對GrantAccessToMultipleFiles
的調用,它似乎可以在我的機器上運行。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.