Ошибка копирования каскадных карт в макросе Excel - PullRequest
Новая
       13

Ошибка копирования каскадных карт в макросе Excel

0 голосов
/ 15 января 2019

У меня есть простой код VBA, который просматривает ряд графиков в моей книге Excel и копирует их в презентацию PowerPoint. Он отлично работает для всех графиков, кроме водопадной графики (ошибка 445: «Объект не поддерживает эту опцию»). Поскольку они относительно новы в Excel, я подумал, что это может быть проблемой совместимости, и подумал, есть ли обходной путь.

Спасибо !! 

'Bar chart ==> works fine
ActiveWorkbook.Sheets(7).ChartObjects("Graphique 1").Copy
' Waterfall chart ==> Error 445
ActiveWorkbook.Sheets(8).ChartObjects("Graphique 1").Copy

Редактировать: Когда я пытаюсь записать процедуру с помощью устройства записи макросов Excel, он выдает мне те же строки кода, но при выполнении кода я получаю ту же ошибку. 

ActiveSheet.ChartObjects("Graphique 1").Activate
Selection.Copy

1 Ответ

0 голосов
/ 15 января 2019

Я проверил с помощью диаграммы водопада, и похоже, что VBA не может скопировать диаграмму такого типа.

Потенциальные исправления: Вы можете скопировать как изображение, используя .copyPicure, или вы можете обойти это, используя: 

YourchartObject.duplicate.select
selection.cut

и затем вставьте в Powerpoint.

...