Невозможно скопировать Excel Map Chart с помощью VBA - PullRequest
Новая
       11

Невозможно скопировать Excel Map Chart с помощью VBA

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

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

Я использую Excel 2016. Я пытаюсь скопироватьДиаграмма карты, основанная на сводной таблице и не позволяющая скопировать диаграмму.Я попытался записать макрос, но когда я запускаю записанный код, он выдает ту же ошибку.Я включил упрощенную версию кода ниже, которая все еще производит ошибку для меня.Когда я применяю этот код к другим графикам (столбцам или линиям) в том же рабочем листе, ошибки отсутствуют.

Sub X () Dim wb As Workbook Dim wsa As Worksheet Dim ch As ChartObject 

Set wb = ThisWorkbook
Set wsa = Sheets("World Map")

For Each ch In wsa.ChartObjects
    myleft = ch.Left
    myright = ch.Top
    ch.Copy
Next ch

End Sub

'ch.Copy' выдает ошибку.Я ожидал, что смогу успешно скопировать это и добавить код, чтобы вставить его в powerpoint.

1 Ответ

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

Вы пытались использовать "ch.CopyPicture" вместо "ch.Copy"?У меня это сработало. 

Sub X()

Dim wb As Workbook
Dim wsa As Worksheet
Dim ch As ChartObject

Set wb = ThisWorkbook
Set wsa = Sheets("World Map")

For Each ch In wsa.ChartObjects
    myleft = ch.Left
    myright = ch.Top
    ch.CopyPicture
Next ch

End Sub

...