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

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

Из моих исследований первый – это проблема с песочницей или проблема с диаграммой. Я даже добавил 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 и он, похоже, работал на моей машине.

  • Код ошибки VBA. Обязательный объект - тройной флажок, но все еще не работает.
  • Ошибка времени выполнения «7»: Недостаточно памяти
  • Как узнать тип данных ячейки
  • Попытка удалить все листы в рабочей книге, а затем добавить другие листы с помощью VBA
  • Ошибка VBA Runtime 1004 on if
  • Sumifs и Error 1004: Определено приложение или Object Defined
  • Ошибка выполнения при использовании сценария VBA в SSIS
  • Ошибка времени выполнения над условным форматированием в VBA
  • Чтение файла excel в Java - Ошибка
  • 438 Ошибка времени выполнения
  • Как пропустить ошибку времени выполнения 9 vba?
  • Interesting Posts

    Пропустить столбец в массиве

    попытка войти в facebook с помощью VBA

    Как написать максимальную функцию в VBA?

    Как выровнять строки данных в Excel (с 7 столбцами)

    Найти совпадение между двумя столбцами, ссылаясь на список

    Как восстановить (предсказать) данные на основе корреляции / регрессии в Excel?

    События Excel Worksheet не срабатывают при запуске backgroundworker

    Excel – 3D-декартовые точки – эвклидовое расстояние для большой группы точек

    Excel VBA для определения последней нецензурной (IE может иметь формулу, но не значение) в столбце

    Вставьте данные представления сетки в уже существующий excel c #

    Как создать функцию Excel VBA, которая работает при повторном открытии документа?

    Синтаксис синтаксиса Excel «Ложная» ошибка

    IFERROR / INDEX / MATCH с образцами

    Как уменьшить размер поворота и получить только требуемые данные с помощью представления?

    FindNext возвращает неверные значения

    Давайте будем гением компьютера.